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IDENTIFICATION 
PRODUCT CODE: AC-T469A-MC 
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PRODUCT DATE: DEC, 1982 
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a INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE te 
OTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITA 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 


’ RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 
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GENERAL PROGRAM INFORMATION. 


PROGRAM PURPOSE (ABSTRACT). 


THIS DIAGNOSTIC He AFA LOGIC TEST TO VERIFY THE OPERATION OF THE 


DLV11-J SERIAL INT 
TESTING IS DONE IN TO DISTINCT PHASES: 


1. ALL SELECTED CHANNELS PER DLV11-J MODULE ARE TESTED INDIVIDUALLY 
2. THE DLV11-J MODULE IS TESTED AS A WHOLE FOR ry INTERACTION 
PROBLEMS. D DETECT 


MS. THIS DIAGNOSTIC IS DESIGNED TO TEST A 
ERRORS TO THE LOGIC LEVEL (NOT TO THE CHIP rEVEL). 


THIS DIAGNOSTIC OPERATES UP TO 2 DLV11-J SERIAL LINE INTERFACES 


CONFIGURED AT CONSECUTIVE BASE ADDRESSES. 
THE PROGRAM WILL DO AUTO-SIZING IF THE DEVICE MAP “S$DEVM' = 


0. 
ALTERNATELY, THE OPERATOR CAN SELECT OR DESELECT INDIVIDUAL MODULES 
& CHANNELS BY sth THE PROPER BITS IN ‘SDEVM* (SEE PROGRAM OPTIONS SEC. 2.4) 


BEFORE RUNNING TH 


PROGRAM. 
BY THIS METHOD, THE PROGRAM WILL BYPASS a AND TEST ONLY 


THOSE MODULES/CHANNELS IT FINDS IN $DEVM 


IN EITHER CASE, THE PROGRAM WILL PRINT OUT ALL MODULES & CHANNELS 


TO BE TESTED BEFORE PROCEEDING. 


THE OPERATOR MUST INSTALL DATA WRAP AROUND CONNECTORS TO DO 
DATA TESTING. TO BYPASS DATA TESTS, THE OPERATOR MUST MODIFY 


"SUSWR' (USER SWITCH REGISTER) , SEE PROGRAM OPTIONS SEC. 2.4) 


THE DEFAULT ADDRESSES & VECTORS ARE AS FOLLOWS: 
177560 -CONSOLE INTERFACE DEVICE ADDRESS 


176500 -FIRST SERIAL CHANNEL ADDRESS OF UP TO 8 CONSECUTIVE 


SERIAL LINE DEVICES. 


60 - VECTOR FOR CONSOLE DEVICE INTERFACE. 
300 = VECTOR FOR FIRST OF 16 DEVICES. 


THIS PROGRAM IS DESIGNED TO RUN ON ANY Q=-BUS PDP=-11 WITH 4K OF 
pa AND A DLV11=-J (Q=BUS) MODULE. IT CAN RUN —_ XXDP & 


T MONITORS, AND ON PROCESSORS WITH NO HARDWA 
SWITCH REGISTER. 


SEQ 0003 


——— —--—-- cn = 2 + eS —— 
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1.2 SYSTEM REQUIREMENTS. 
HARDWARE REQUIREMENTS: 
ANY Q=-BUS PDP=-11 FAMILY PROCESSOR 
4K MEMORY - MINIMUM 
A SPECIAL DATA WRAP AROUND CONNECTOR OR EQUIVALENT 
(REQ’D IF DATA WRAP AROUND TESTS DESIRED) 


IF CHANNEL 3_IS CONFIGURED AS THE CONSOLE: 
TESTS 6-12, 14-17, 21, 22 ARE BYPASSED. 


| 

| 

| 

IF DATA WRAP AROUND TESTS ARE BYPASSED: 
TESTS 7-12, 14-17, 21, 22 ARE BYPASSED. 


CHANNEL 3 IS CONFIGURED THE cansOLe & A VT=-100 I 


IF 
THE CONSOLE DEVICE, SWITCH THE VT-100 19 ‘‘JUMP SCROLL MODE 
TO AVOID LOOSING CHARACTERS ON THE SCREEN. 


SOFTWARE REQUIREMENTS: 

ged DIAGNOSTIC IS DESIGNED TO RUN IN ANY OF THE 

FOLLOWING WAYS: 
STAND ALONE 

WITH APT MONITOR 

WITH XXDP MONITOR (CHAINABLE IF RENAMED TO .BIC EXTENSION) 

THIS DIAGNOSTIC IS NOT DESIGNED TO RUN WITH THE 

DIAGNOSTIC SUPERVISOR. 


1.3 RELATED DOCUMENTS AND STANDARDS. 


4 eis ENGINEERING STANDARDS AND CONVENTIONS ou 
SYSMAC MD-11-DZQAC 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES. 
NO SPECIAL DIAGNOSTICS ARE REQUIRED TO RUN BEFORE THIS, BUT 
ei MEMORY, AND BUS ARE ASSUMED TO BE FULLY 


7.5 ASSUMPTIONS. 


THIS DIAGNOSTIC ASSUMES THAT THE OPERATOR HAS INIT 
LOCATION ‘SUSWR* AND ‘SDEVM' TO THE PROPER VALUES. (SEE 


mc a a ne ee ee 


SEQ 0004 


ee a ae ee +. a a --- - + - - -  C -- —-—+-< —— 
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2.0 OPERATING INSTRUCTIONS. 


2.1 LOADING AND STARTING PROCEDURES. 
+ imate PROCEDURE FOR PDP=11 ABSOLUTE BINARY FORMATTED 


THERE ARE 2 STARTING LOCATIONS FOR THIS DIAGNOSTIC: 
1. LOCATION 200 FOR ALL NORMAL TESTING STARTS & RESTARTS. 
2. LOCATION 400 FOR INTERRUPT VECTOR DEBUG... OFFLINE ONLY. 


THE 400 START SHOULD BE USED ONLY To DEBUG FAULTY VECTOR ADDRESSES 
PUT OUT BY THE DLV11-J DURING INTERRUPTS. 
STARTING AT 400 WILL CAUSE THE ENTIRE VECTOR AREA, EXCEPT THAT 
NEEDED BY SYSMAC, TO BE OVERWRITTEN & TO POINT TO A COMMON SERVICE 
ROUTINE TO ENABLE LOOPING ON THE PROBLEM. 


AS SOON AS ty yt STARTS, THE OPERATOR CAN CHANGE THE SWITCH 
REGISTER ONLY BY A "BREAK* & MANUALLY LOADING LOCATION 176 (SWREG) 
WITH THE DESIRED CONTENTS (SEE SEC. 2.3) THEN DOING A ‘P* TO PROCEED. 


IT IS IMPORTANT THAT WHEN GOING BACK TO NORMAL TESTING A FRESH 
LOAD OF THE PROGRAM BE PERFORMED TO RESET THE VECTOR AREA. 


THE USER CAN SELECT A SPECIFIC TEST TO BE EXECUTED BY SETTING 
BIT 8 IN SWREG AND THE TEST — (IN OCTAL) IN BITS <7:0>. 
(NOTE: ALL TESTS PREVIOUS TO THE SELECTED 
ONE ARE EXECUTED WITHOUT ITERATIONS.) 


2.2 SPECIAL ENVIRONMENTS. 
THIS DIAGNOSTIC FOLLOWS THE STANDARD PROCEDURE FOR RUNNING 
UDER APT,XXDP MONITORS, AS DESCRIBED IN THEIR RESPECTIVE 
PROCEDURES MANUAL AND SYSMAC PACKAGE. 

2.3 OPERATIONAL SWITCH SETTINGS 
THE SOFTWARE SWITCH ties” (LOC. 176) IS USED FOR ALL 


OPERATIONAL SWITCH SETTINGS. 
THIS CAN BE ACCOMPLISHED IN THE FOLLOWING WAY: 





mote ee a i a a ee | + + -—— 
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1) TYPE CONTROL G <*G>; THIS WILL ALLOW THE TTY TO ENTER 
TT ale LOC. 176 AT SELECTED POINTS WITHIN THE 


| 

| 2) THE MACHINE WILL THEN TYPE:* SWR=XXXXXX_ NEW=" (XXXXXX IS 
| THE OCTAL CONTENTS OF THE SOFTWARE SWITCH REGISTER.) 

| 


3) AFTER THE "NEW=" HAS BEEN TYPED — THE OPERATOR CAN DO 
ONE OF THE FOLLOWING AT THE T 


A) TYPE A NUMBER TO BE LOADED INTO LOC. 176 FOLLOWED BY 
A_ <CR>. (ONLY NUMBERS BETWEEN 0-7 uy RORE THAN 


E TYPED, AND 
Nag 2 THE LAST 6 WILL BE USED. IF A <CR> 
IS_ THE F KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


B) IF A CONTROL U <*U> IS DEPRESSED THEN THE PROGRAM WILL 
SEND YOU BACK TO STEP 3. 


C) IF THE INPUT CHARACTER IS NOT ONE OF THE CHARACTERS 
MENTIONED ABOVE THEN A QUESTION MARK (?) WILL BE TYPED 
FOLLOWED BY A _CARRAGE RETURN AND A LINE FEED SEQUENCE 
THEN PROCEED FROM STEP 3 (ERASING ALL PREVIOUS INPUT). 


4) THE DIAGNOSTIC WILL CONTINUE ON TYPING <CR>. 


NOTE: BECAUSE OF FREQUENT BUS RESETS IN THE PROGRAM, IT MAY BE 
NECESSARY TO ‘" *CONTROL=G* SEVERAL TI 
ALTERNATELY, BREAK' & MANUALLY LOADING LOC. 176, 
FOLLOWED BY A aript 10 PROCEED WILL ALSO WORK. 


SOFTWARE SWITCH REGISTER OPTIONS (SWREG) 


BIT 15 SET = 100000 = HALT ON ERROR 
14 SET = 40000 = LOOP ON TEST (TO BE Md ONLY WHILE TESTING IN PROGRESS) 
13 SET = pase = INHIBIT ERROR TYPEOUTS 
12 SET = 10000 = ENABLE PERFORMANCE REPORTS 
11 SET = 4000 = INHIBIT ITERATIONS 
10 SET = 2000 = BELL ON ERROR 
9 SET = 1000 = LOOP ON ERROR 
8 SET = 400 = LOOP ON TEST IN SWR<7:0> 
7:0 = NUMBER OF TO LOOP ON (USED WITH BIT 8) 


TEST 
(ALL_TESTS PREVIOIUS TO THE SELECTED TEST 
ARE EXECUTED FIRST WITH 1 ITERATION ONLY) 


SEQ 0006 


a a ee a ee = oe — ee 2 
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2.4 PROGRAM OPTIONS. 


| THIS PROGRAM REQUIRES THE ADDRESS OF ih FIRST RCSR (STORED AT ‘SBASE") AND 
ITS INTERRUPT VECTOR (STORED AT “$VECT1°). IT WILL L 
TO ADDRESS ANY BLVit<3 STARTING AT THE SPECIFIED BASE ADDRESS 

THRU 2 CONSECUTIVE MO 

EXAMPLES: oe 


DULES. 
SE: 176500 (DEFAULT) 
ECTI: 300 (DEFAULT) 


LOCATION *SDEVM* IS USED AS A BIT MAP TO INDICATE WHICH UNIT 
NUMBERS ARE PRESENT AND WILL BE TESTED. 


SDEVM (BITS 15 THRU 8 NOT USED) 
we WA TR BS ae ee De et ee Be ee eek, BIT 
REERAEAEAEAEAEEEREEEEEREREREKEEEEEEAEEEEAEKEEREEREEEEEEAEEREEEREEEKEREREKREKEEEKEKREEE 
ae See es ay ee ee ee ey Ee eI er eas 
Mend Sek thee Boek Mol Sood den Jed Soak Kae Bid Dee dss Badk BSE fede 
SEERA AAAEEAAEEAAAEEREREAEEARERAEAEEEEEEEEEAEEEEEEEEEREREEEAAAEEREAKEEEEEREEEEE 
' 1 ' a 4 


A_BIT MAP CAN BE ENTERED AT ‘SDEVM" PRIOR TO oon aeee THE PROGRAM 

IF *SDEVM" IS LEFT AT ITS +h ge VALUE (0), THE P ~s WILL DO AUTO-SIZING 
BEGINNING AT THE DEVICE ADDRESS IN "SBASE* & WILL SETU P *SDEUM ACCORDINGLY. 
IN EITHER CASE, THE PROGRAM WiLL T YPE OUT A LIST OF THE 
MODULES/CHANNELS TO BE TESTED BEFORE PROCEEDING. 


| 

| 

| NOTE : ties IS PERFORMED ONLY ONCE AT THE BEGINNING OF THE PROGRAM. 
F SDEVM IS TO BE CHANGED, THE PROGRAM MUST BE RESTARTED AT 200 

FOR IT TO BE EFFECTIVE. OTHERWISE, SDEVM WILL BE IGNORED. 


OPTIONS 


LOCATION SUSWR CONTAINS ALL _THE USER SELECTABLE OPTIONS. THE VALUES 
IN THIS WORD MUST CONFORM TO THE ACTUAL BOARD CONFIGURATION. 


SUSWR 

BIT POSITION DEFINITION DEFAULT VALUE 

0 # OF DATA BITS TRANSMITTED 1 = 8 BITS 

0 = 7 BITS, 1 = 8 BITS 

1 PARITY ENABLED 0 = NO 

2 EVEN ODD PARITY 0 = ODD 

3 BREAK DETECTION ENABLED 1 = YES 

e RUN DATA WRAP AROUND TESTS 1 = YES 
<11:9> CONSOLE DEVICE 1 = YES = CONSOLE ON MODULE 1, CHAN. 3 


<11:9> = 0 = CONSOLE NOT ON DLV11-J 
<11:9> = 1 = CONSOLE ON MODULE 1 
<11:9> = 2 = CONSOLE ON MODULE 2 


i ee  - -  e - es ee + 


{ 
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IMPORTANT : 


1. FOR DIAGNOSTIC PURPOSES, ALL CHANNELS MUST BE CONFIGURED 
TO THE SAME BIT/WORD LENGTH. 


THE *SIZING’ ROUTINE WILL SET THE APPROPRIATE CHAN 3 BIT 
IN SDEVM IF BITS <11:9> ARE SET IN S$USWR. 


IF RUNNING UNDER APT x THE CONSOLE IS ON THE DLV11-J, THE 
CONSOLE MUST NOT BE TEST 

THIS IS BECAUSE APT SENDS *BREAKS' TO THE CONSOLE WHICH 
INTEREFERES WITH THE TESTS. 


FOR THIS CASE: 


A. ALLOW THE SDEVM TO STAY EITHER AT ITS DEFAULT OF 0 
OR CLEAR THE APPROPRIATE CHAN. 3 BIT. 


B. CLEAR BITS <11:9> IN $USWR SO THE CONSOLE BIT WILL NOT 
BE SET INTO SDEVM FOR TESTING. 


2 


3 


SEQ 0008 


— 4 
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SUMMARY OF DEVICE ADDRESSES & VECTORS. 


DEV ADDRESS 
(RCSR) 


J 
149 


VECTORS 


REC XMIT 


MODULE #1 CHANNEL 0 $BASE+00 SVECT1#00 $VECT1+4 

1 +10 +10 +14 

2 +20 +20 +24 
MODULE #2 CHANNEL 3 20 ti tue 

+ + + 

1 +50 +50 +54 

2 +60 +60 +64 

3 +70 +70 +74 
CONSOLE DEVICE 3 $TKS TKVEC=60 TPVEC=64 


SUMMARY OF USER LOCATIONS & DEFAULTS. 


LOC DEFAULT 


1250 176500 


1144 177560 FOR CONSOLE DEVICE 

FOR CONSOLE DEVICE 

64 FOR CONSOLE DEVICE 
1220 31 SEE SEC. 2.4 
1252 17 SEE SEC. 2.4 
176 SEE SEC. 2.3 


EXECUTION TIMES. 


EXECUTION TIMES FOR AN LSI-11 PROCESSOR WITH ONE DLV11-J MODULE AT SHIPMENT CONFIGURATION: 


ARE: 


CH. 0,1,2 AT 9600 BAUD. 
CH. 3° (CONSOLE) AT 300 BAUD. 


FIRST PASS=- 30 SEC 
ADDITIONAL PASSES 90 SEC 


ON MODULE UNDER TEST 
N MODULE UNDER TEST 
ON MODULE UNDER TEST 


THE TEST TIME IS BAUD RATE DEPENDENT; HIGHER BAUD RATES RESULT IN 
SHORTER PASS TIMES. 


POWER FAIL. 
AUTO START FROM POWER FAIL IS NOT IMPLEMENTED IN THIS PROGRAM. 


a rs ce ee ne ee ee ee 


SEQ 0009 


na et ee ee ae ee --- oe oe ee ee 
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ERROR INFORMATION. 


ERROR REPORTING PROCEDURE. 


SINCE THIS DIAGNOSTIC WAS DESIGNED TO FIT IN 4K_OF MEMORY THE 
ERROR TYPEOUT IS VERY BRIEF. THE FORMAT OF THE ERROR TYPEOUT 


IS AS FOLLOWS 
TEST#_____ ERROR#_____PC=__e eADDRESS=______.VECTOR= 
WHERE ALL VALUES TYPED ARE OCTAL. 

THE ADDRESS AND VECTOR REFER TO THE FAILING CHANNEL. 
FOR FURTHER INFORMATION THE LISTING MUST BE CONSULTED. 

BITS 13.13.10 AND 9 OF THE SWITCH REGISTER (SWREG) CONTROL THE 
SEQUENCE OF EVENTS AFTER AN ERROR 18 CAUGHT 


BIT 15 SET: CAUSES THE PROGRAM TO HALT IN THE ERROR ROUTINE. 
IF THE PROGRAM IS CONTINUED, IT WILL PROCEED 
FROM WHERE IT HALTED. 

BIT 13 SET: DISABLES THE PRINTING OF THE ERROR MESSAGE. 

BIT 10 SET: CAUSES THE BELL TO RING ON ERROR. 


BIT 9 SET: CAUSES THE DIAGNOSTIC TO LOOP FROM BEGINNING 
OF TEST TO ERROR. 


THE ERROR ROUTINE SUPPORTS THE CONTROL G <*G> FUNCTION. 
REFER TO SECTION 2.3 FOR DETAILS. 


ERROR HALTS. 


THE ONLY HALT IN 7 DIAGNOSTIC IS IN THE ERROR ROUTINE, AND 
IS EXECUTED ONLY IF BIT 15 OF THE SWITCH REGISTER (SWREG) IS SET 
WHEN AN ERROR OCCURS. 


SEQ 0010 


pews ee 
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PERFORMANCE AND PROGRESS REPORTS. 


PERFORMANCE REPORTS. 


AS_EACH CHANNEL (4 CHANNELS/DLV11-J) 
THE DIAGNOSTIC THE FOLLOWING ITEMS ARE TYPED: 


*CSR: : 
VECTOR; 
"ERRORS: __' 


AFTER ALL MODULES & Pe tee TO BE TESTED HAVE BEEN EXERCISED, 


: THE ASSOCIATED VECTO 


: THE TOTAL NUMBER OF ERRORS ON THIS DEVICE 


ON THIS PASS. 


AN END PASS STATEMENT IS TYPED: 
"END PASS#_____."" 


EXAMPLE OF PRINTOUT ASSUMING: 


CNDLAAO DLV11-J TEST 
SWR= 000000 NEW= 10000<CR> 
WILL TEST: 


MODULE 1 CHANNEL O 1 2 3 
MODULE 2 CHANNEL O 1 2 3 


Wooo s 
Oo 
<= 
~ 
oO —_ 
tnd 
ee ee 
oS 
i=) 
oS 
Ww 
Im 
© 
z 


HASE 2 S 


ae ke 
: 176500. VECTOR: 4000300, ERRORS: 


** PHASE 1 SUMMARY ** 


HASE 2 S 


tt be 
3 176540, VECTOR: 4000340. ERRORS: 


PASS # 1 


RRORS: 
0; VECTOR: 000330, ERRORS: 


76540, VECTOR: 000340, ERRORS: 
76550, VECTOR: 000350, ERRORS: 
76560, VECTOR: 000360, ERRORS: 
76570. VECTOR: 000370, ERRORS: 


L 
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(BIT 12 SET IN 1HE SWITCH REGISTER ‘SWREG') 
COMPLETES ONE PASS OF 


: THE BASE ates vert = LINE UNDER TEST 


2 DLV11-J MODULES 
ALL CHANNELS ENABLED 
. ae DEVICE 


oooo o oooo 


o 


(ENABLE PERFORMANCE REPORTS) 


SEQ 0011 


rn ea ae eee ee eee 
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5.0 DEVICE REGISTERS. 


7 Ww w we Ww 


4 
RARER EREAAEAERARAEEAAEAEEAOREERARERERARAREEEAEEEEEREEEAEAAEEEREEEEEEEEREEEEE 


RCSR: : : : : : : FRCVR-RCVR: H : L : 'ROR ! 


i i i i i i ipDONE‘IE | i i i i ‘ENB i 

ENGL Be FEN Be RES TR, OSS TOR dt, A AR, BER OP ER 
RBUF ; ERRO: OR 'FR !p os! ! ! ! : RECEIVER DATA BUFFER ! 
iR ‘ERR ‘ERR ‘ERR ! ! $ ! ' : 
Perr Tr Nr rer rr rrr Te Terr Terre rTerTrerrreererrerrerrriririririritiriTiTTiit 
TCSR: ‘ ! ! ‘ ‘ ' ! 'XMIT!XMIT! } ' $ ! — 
i i i i i i i irnty ‘le : i i i i i 
ceneeaneenaeenscenesneneaneesnieeseeseneansnententceneeteeeeeeesnnesneceseneneets 
TBUF ! ! ! ! ! ! $ ! TRANSMITTER DATA BUFFER 8 


i i i i i i i i i 
, sdsleneubbadnnbende Leninletinstebiabddiaheinedansiiamaciamemnnienienanntnn 
' ' ' ' ' 


i i i i i 
NOTES: 
1. RCSR 7 eS ($BASE) 


TBUF AT $BASE+6 


2. BLANK oats INDICATE — AND RESERVED 
BIT POSITIONS. SEE THE LISTING FOR AN 
EXPLANATION OF THE BITS. 


OVERRUN ERROR 


FRERR = FRAMING ERROR 
PERR = PARITY ERROR 


on ae em nem a re wo ne ee ee es eee - 


3 


r- 
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6.0 SUMMARY OF TESTS AND SPECIAL SUBROUTINES. 


PHASE 1 TESTS 


TEST 1 ADDRESSABILITY 


= ee THIS TEST VERIFIES THAT ALL 4 REGISTERS OF THE CHANNEL 
UNDER TEST RESPOND TO THEIR ADDRESSES. 


THE FOLLOWING 3 TESTS TEST ALL ‘READ WRITE’ BITS 
TEST 2 BREAK = TCSR 0 SET, CLEAR, RESET 


TEST 3 XMITIE = TCSR 6 SET, CLEAR, RESET 


TEST 4 RCVRIE = RCSR 6 SET, CLEAR, RESET 


TEST 5 XMITRDY = TCSR 7 = IS SET BY INIT 


TEST 6 XMIT RDY = TCSR 7 = CLEARS WHEN aa IS _LOADED 
“ace oo WITH A CHARACTER AND_ THAT IT SETS WITHIN A 
REASONABLE AMOUNT OF TIME. 


TEST 7 OUTPUTTING A CHAR FROM TBUF (WITH WRAP “pry CONNECTED) 
owes om RESULTS (IN RCVRDONE SETTING WITH 4 
REASONABLE AMOUNT OF TIME AND THAT "RESE! 
CLEARS THE BIT. 


TEST 10 RCVRDONE IS CLEARED BY SETTING READER ENABLE 


TEST 12 OVERRUN & ERROR BIT = RBUF 14 


SEQ 0013 
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TEST 13 TRANSMITTER INTERRUPT LOGIC TEST 


TEST 14 


TEST 15 


TEST 16 


TEST 17 


TEST 20 


PHASE 2 
TEST 21 


TEST 22 





ee yg THIS IS 4 SEPARATE TESTS 

) DO g lorie asa INTERRUPT LOGIC WORK 
8) AT PRIORITY OF 0 
C) AND ONLY ONCE 

D) BUT NOT WITH INTERRUPT ENABLE CLEAR 


oo ps INTERRUPT LOGIC TEST THIS TEST COVERS ALL 
OF THE RECEIVER SIDE OF THE INTERRUPT LOGIC IN 
CHARACTER MODE. 


TEST DATA WRAP AROUND: FLAG MODE. 


TEST DATA WRAP AROUND: INTERRUPT MODE. 


TEST BREAK DETECTION LOGIC TRANSMIT KNOWN CHAR 


A) TRANSMIT KNOWN CHAR WITH BREAK SET 
AND COMPARE RECEIVED WITH 0 


B) TEST FOR FRAMING ERROR ON BREAK 


C) IF PARITY IS ENABLED AND ODD PARITY IS SELECTED, 
CHECK TO BE SURE PARITY ERROR WAS GENERATED 


D) IF PARITY IS ENABLED AND EVEN PARITY IS SELECTED, 
CHECK TO BE SURE NO PARITY ERROR OCCURRED 
NOT A TEST = SEND BACK TO LOOP 
TESTS 
TEST THAT CHANNELS INTERRUPT AT ASSIGNED PRIORITY 


TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING. 


— + Ce Ce OS +e 


SEQ 0014 | 


; 
i 
' 
i 


ST LT me teehee en 
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CNDLAA.P11 33. =DEC=82 13:5 SEQ 0015 
8719 
8720 
8721 .TITLE CNDLAAO DLYII=J TEST 
(1) :*COPYRIGHT (C) 1982 
(1) ; *DIGITAL EQUIPMENT CORP. 
(1) j MAYNARD , MASS. 01754 
(1 ; PROGRAM BY GREGORY GLEZMAN & GARY PAPAZIAN 
(1) 2 THIS PROGRAM WAS ASSEMBLED SING THE PDP=11 MAINDEC SYSMAC 
(1) 3 *PACKAGE (MAINDEC=11=DZQAC-C3), JAN 19, 1977. 
8722 
8723 .SBTTL OPERATIONAL SWITCH SETTINGS 
Z ** 
(1) ie SWITCH USE 
Z RG ee ce Se eee Seawbeamessaneen - 
(1) ie 15 HALT ON ERROR 
(1) ie 14 LOOP ON TEST 
(1) ie 13 INHIBIT ERROR TYPEOUTS 
(1) 3* 11 INHIBIT ITERATIONS 
(1) ie 10 BELL ON ERRO 
(1) i* 9 LOOP ON ERROR 
(1) ie 8 LOOP ON TEST IN SWR<7:0> 
8724 “SBTTL BASIC DEFINITIONS 
(1) ztINITIAL ADDRESS OF THE STACK POINTER *** 1100 *## 
(1) 001100 STACK= 1100 
(1) “EQUIV EMT,ERROR z;BASIC DEFINITION OF ERROR CALL 
(1) -EQUIV I0T,SCOPE +:BASIC DEFINITION OF SCOPE CALL 
(1) :*MISCELLANEOUS DEFINITIONS 
(1) 000011 T= 11 3:CODE FOR HORIZONTAL TAB 
(1) 000012 LF= 12 +:CODE FOR LINE FEED 
(1) 000015 CR= 15 3 CODE FOR CARRIAGE RETURN 
(1) 000200 CRLF= 200 [CODE FOR CARRIAGE RETURN-LINE FEED 
(1) 177776 S= 177776 +:PROCESSOR STATUS WORD 
(1) .EQUIV PS,PSW 
(1) 177774 STKLMT= 177774 i: STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 *:PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 ; S HARDWARE SWITCH REGIST ER 
(1) 177570 DDISP= 570 WARE DISPLAY REGIST 
(1) ate cone THE FOLLOWING ODT’ START ADDRESS FOR SBC 14021 IS ADDED 
(1) SO TENERAL PURPOSE REGISTER DEFINITIONS 
(1) 000000 RO= 20 sGENERAL REGISTER 
(1) 000001 Ri= “1 + GENERAL REGISTER 
(1) 00000 R2= %2 GENERAL REGISTER 
(1) 00000 R3= 23 *:GENERAL REGISTER 
(1) 4 R4= 14 3 REGISTER 
(1) 000005 R5= “5 S:GENERAL REGISTER 
(1) 0006 R6= 1 33 REGISTER 
(1) 000007 R7= 17 3: GENERAL REGISTER 
(1) 000006 SP= 16 ‘STACK POINTER 
(1) 000007 PC= 47 + PROGRAM COUNTER 
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(1) 

(1) 000000 
(1) 0 
(1) 000100 
(1) 000140 
(1) 02 
(1) 000240 
(1) 003 
(1) 000340 
(1) 

(1) 

(1) 100000 
(1) 040000 
(1) 020000 
(1) 10000 
(1) 000 
(1) 2000 
(1) 001000 
(1) 0400 
(1) 000200 
(1) 000100 
(1) 000040 
(1) 000020 
(1) 000010 
(1) 000004 
(1) 000002 
(1) 000001 
(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 0000 
(1) 040000 
(1) 0000 
(1) 010000 
(1) 000 
(1) 002000 
(1) 001000 
(1) 00 
(1) 00200 
(1) 000100 
(1) 00040 
(1) 000020 
(1) 0001 
(1) 000004 
(1) 000002 
a3 000001 
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BASIC DEFINITIONS 


:*PRIORITY LEVEL DEFINITIONS 

PRO= sé) ::PRIORITY LEVEL 0 
PR1= 0 ::PRIORITY LEVEL 1 
PR2= 100 s:PRIORITY LEVEL g 
PR3=  —-:140 ::PRIORITY LEVEL 
PR4= 200 >:PRIORITY LEVEL 4 
PR5S= 240 ‘PRIORITY LEVEL 5 
PR6= 300 +:PRIORITY LEVEL 6 
PR7= 340 *:PRIORITY LEVEL 7 
s*'"SWITCH REGISTER" SWITCH DEFINITIONS 
$wi5= 100000 

$W14= 40000 

SW13= 20000 

SWi2= 10000 

SWil= 40 

Sw10= 2000 

sw09= 1000 

sw0o8= 400 

swO7= 200 

sw06= 100 

sw0S= 40 

SW04= 20 

swO3= 10 

SWO2= 4 

SwOl= 2 

swoo= 1 


EQUIV SwW00,SWO 
s*DATA BIT DEFINITIONS (BITOO TO B1T15) 
BIT15= 100000 


IT15= 1000 
BIT14= 40000 
BIT13= 20000 
BIT12= 10000 
BIT11= 4000 
BIT10= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 
BIT06= 100 
BITOS= 40 
BITO4= 20 
BITO3= 10 
BITO2= 4 
BITO1= 2 
BITOO= 1 
-EQUIV BIT09,B1T9 


SEQ 0016 
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NARA AAA ABABA ABB ABABA EEE EE OOP OPP PF 
PR mek a ed a ts a 
ee ee ee er ee ee a eae 
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000001 
176500 


177777 
000000 
000001 
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BASIC DEFINITIONS 


.EQUIV 81T08,B1T8 

“EQUIV BITO7.B1T7 

-EQUIV B1T06.B116 

“EQUIV BITOS.BITS 

SEQUIV BIT04,BITS 

“EQUIV BIT03,B1T3 

“EQUIV B1T02.BIT2 

“EQUIV BITO1,B1T1 

“EQUIV B1T00.BITO 

: *BASIC cpu" TRAP VECTOR ADDRESSES 

ERRVEC= sTIME OUT AND OTHER ERRORS 

RESVEC= 10 3 SRESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC=14 33°" BIT 

TRIVEC= 14 +: TRACE TRAP 

BPTVEC= 14 3 BREAKPOINT TRAP (BPT 

IOTVEC= 20 :: INPUT/OUTPUT TRAP (oT) **SCOPE** 
RVEC= ::POWER FAIL 

EMTVEC= 30 3 EMULATOR TRAP (EMT) **#ERROR** 

TRAPVEC=34 AP’* TRA 

TKVEC= 60 HTT Y KEYBOARD VECTOR 

TPVEC= 64 “TTY PRINTER VECTOR 

peeeee THE FOLLOWING BREAK VECTOR AND LINE CLOCK VECTOR ARE INCLUDED 

{kvEC= 100 LINE hoe K VECT 

BRKVEC= 140 + EREAK 


VECTOR 
PIRQVEC=240 3;PROGRAM INTERRUPT REQUEST VECTOR 


ADRS= Ri 
DLADDR= 176500 
é THE pL eees DEFINITIONS APPLY TO THE GLOBAL SUBS 


SEQ 0017 








i a Se 
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CNDLAA.P11  23-DEC-82 13:55 BASIC DEFINITIONS SEQ 0018 
87 
a 
8739 FFARR AEAEAAEAAEEAEEEEREE EEA EEEEERAAERAAEREEEREREERERREREEEEHEREEERE 
8740 : RCSR REGISTER BIT NAMES 
8741 FERRER EERE EEEEE EERE AE EEEEEEEREREEEEREREEEREREEREREEREREREE 
8742 : UNUSED BIT15 
8743 : UNUSED BIT14 
8744 > UNUSED BIT13 
8745 3; UNUSED BIT12 
8746 : UNUS BIT11 
8747 : UNUSED BIT10 
8748 : UNUSED BITO9 
8749 S BITO8 
8750 000200 RCVRDONE= BIT07 : RECEIVER DONE 
8751 000100 RCVRIE= BIT06 + RECEIVER INTERRUPT ENABLE 
8752 : UNUSED BITOS 
8753 > UNUSED BIT04 
8754 : UNUSED BITO3 
8755 > UNUSED BITO2 
8756 + UNUSED BITO1 
8757 000001 RDRRUN= B1T00 : READER RUN 


FFARR ARAAEEREEEEEEEEEEEEEEEEEEEEEREERRERAEREREREEEREEREEREREE 


3 RBUF REGISTER BIT NAMES 


SF FARRAR AREEAEREEEEREREEEEEEEEEEEEREEEREEREREEEEEREEEEEEREREREEEEEEE 


ROR= BIT15 ; ERROR INDICATOR 
ORERR= BIT14 : OVERRUN ERROR 
FRERR= BIT13 ; FRAMING ERROR 
PERR= BIT12 : PARITY ERROR 

.-. ¢ UNUSED BIT11 
; UNUSED BIT10 
3 UNUSE BITO9 | 
:_UNUSE BITO8 
RDATA7= BITO7 7 \ 
RDATA6= BIT06 ; 3 
RDATAS= BITOS ee 
RDATAG= BITO4 ; “\ RECEIVED DATA BITS 
RDATA3= BITO3 ; 
RDATA2= BITO2 : 4 
RDATAI= BITO1 : i 
RDATAO= BITOO 27 
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06 
8807 
08 


88 

88 

8810 
8811 
8812 
8813 
8814 
8815 
8816 
8817 
8818 
8819 


8820 


000200. 


000100 


000001 
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23-DEC=82 13:55 BASIC DEFINITIONS 


FERRARA AAAARERARARAEEAE EE AEEAEEAEREREAEAEEERERERAEREERERREEREEEREE 


3 TCSR REGISTER BIT NAMES 


: UNUSED BIT15 

3 UNUSED BIT14 

3 UNUSED BIT13 

3 UNUSED BITI2 

; UNUSED BIT11 

: UNUSED BIT10 

; UNUSED BIT09 

3 UNUSE B1T08 

XMITRDY= BITO7 3 TRANSMITTER READY 

XMITIE= B1T06 3 TRANSMITTER INTERRUPT ENABLE 
3 UNUSE BITOS 

3 UNUSED BIT04 

: UNUSED BIT03 

3 UNUSED BITO2 

3 _UNUSE BITO1 

REAK= B1T00 3 SEND BREAK (CONTINUOUS SPACE) 


FF AAERARAAAREREEEEEREAEEEREEEEEEEEHEEEEEEREREEEEEERREEREEEEEEEEEE 


; TBUF REGISTER BIT NAMES 


FF RRRAAAAER AEE AAEERER AEE REE EEAEEAAAREEREREEREREEEREEEREEEEEEEEE 


3 UNUSED BIT15 

3 UNUSED BIT14 

3 UNUSE BIT13 

3 UNUSED BIT12 

3 UNUSED BIT11 

3; UNUSED BIT10 

3; UNUS BITO9 

3 UNUS B1IT08 

TDATA7= BITO7 a ' 

TDATA6= BITO6 3 f 

TDATAS= BITOS g 8 

TDATA4= BITO4 : \ TRANSMITTER DATA BUFFER 
TDATA3= BITO3 : # - 
TDATA2= BITO2 3 

TDATA1= BITO1 3s 

TDATAO= B1T00 s 7 


FF RARER EREEEEEERAEEEEEE EAE EEE EEE EERE AEEEEEREEREERAREREEREEEKERE 


: FLAG BITS TO BE USE OR CLEARED IN $USWR. 


PARITY = 2 
EVENODD = 4 
BRK = 10 
WRAP = 20 


SEQ 0019 
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000174 
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000000 
000174 
000000 
000000 
000137 


000400 


005000 
012720 
012720 


001334 


013610 
00030¢ 


000400 


000176 
001334 





ee ee ee 


H 
23-DEC-82 13:56 PAGE 158 
BASIC DEFINITIONS SEQ 0020 


J eeeeeeeeeeeneneeeeentereeeeteeeeneeteneeeeeteneeteeteneeeeeees 


* §BTTL TRAP CATCHER 


=0 
S*ALL UNUSED LOCATIONS FROM 4 = 776 ween A_*'.+2,HALT’’ 
3*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRU 
S*LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


22174 
DISPREG: .WORD 0 3sSOFTWARE DISPLAY REGISTER 
SWREG: R 3;SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 


@ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


; OFFLINE TESTING FOR INTERRUPT VECTOR PROBLEMS 


.=400 
CLR RO 
1$: MOV #INTSRV (RO)+  ;SET INTR HANDLER PTR 
MOV PR6, (RO)+ 3SET PRIORITY TO 6 TO BE 
; SPECIFIC TO 11/21 PROCESSOR 
CMP RO, #400 TALL DONE? 
BNE 1$ :BR IF NO 
CLR 176 SCLEAN UP SWREG 
JMP START :60 DO IT 








LONE nel =e SR ok er A ee ' 
ata DLVIT=y TEST. MACYI1 30(1046) 23-DEC-82 13:56 PAGE 159 


CNDLAA.P11 | 23-DEC-82 13:5 STARTING ADDRESS(ES) SEQ 0021 
885 
885 
8854 .SBTTL ACT11 HOOKS 
(2) 3 H REAEARAEAAAKEAARERAAAAEAARETEAAEAAARAAAAAEKEAEAEEREEEAEEEAREREEEEEEE 
(1) [HOOKS REQUIRED BY ACT11 
(1) 000430 $SVPC=. SAVE PC 
(1) 000046 =46 
(1) 000046 914459 : SENDAD 3:1)SET LOC.46 TO ADDRESS OF S$ENDAD IN .SEOP 
(1) 000052 000000 "WORD 0 :32)SET LOC. 332 TO ZERO 
(1) 000430 *=$SVPC +t RESTORE P 
8855 001000 .=1000 
8856 "SBTTL APT PARAMETER BLOCK 
(2) SERA EAEEAEAAAAEEEEE EEE EEAEAAEKEAAEEAREEREREEREREREEREEEEEES 
(1) :SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
(2) FY FARRAR EEEEREEAEEEEE EEE EE EEEEAEEAEREEARERERREAEREREEEEEEEEERE 
(1) 001000 ~SX=. SAVE CURRENT LOCATION 
(1) 000024 "=24 SET POWER FAIL TO POINT TO START OF PROGRAM 
(1) 000024 000200 300 <TFOR APT START UP 
(1) 000044 = :3POINT TO APT INDIRECT ADDRESS PNTR. 
(1) 000044 $APTHDR ::POINT TO APT HEADER 
(1) 001000 =. RESET LOCATION 
(2) jp ReRReReReeeeeeeeeeeeeeeeeeeeteeeeeedeeeeeeeeeeeeeeeteeeenenes 
(1) :SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
(1) SINTERFACE SPEC. 
(1) 001000 SAPTHD: 
(1) 001000 000000 $HIBTS: .WORD 0 TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(1) 001002 001174 SMBADR: <WORD $MAIL ADDRESS OF APT MAILBOX (BITS 0-15) 
(1) 001004 000031 $TSTM: .WORD 25. N TIM OF LONGEST TEST 
(1) 001006 0001 SPASTM: “WORD 100. InN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(1) 001010 000144 SUNITM: :WORD 100: :ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(1) 001012 0000 : SETEND-SMAIL/2 ::LENGTH MAILBOX-E TABLE (WORDS) 








Er - OOOO 
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CNDLAA.P11 33-DeC-82 13:55 COMMON TAGS SEQ 0022 


8857 »SBTTL COMMON TAGS 
(2) FERRAEREAEEAAEEREREEREEEE EEE EERAEREEEERAEEREEEEREEEEREEEEERERE 
(1) ZATHIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
(1) ;*USED IN THE PROGRAM. 
(1) 001100 -=1100 : 
(1) 001100 SCMTAG: 3:START OF COMMON TAGS 
(1) 001100 000000 WORD 0 
(1) 001102 = 000 $TSTNM: .BYTE 0 ::CONTAINS THE TEST NUMBER 
(1) 001103 000 SERFLG: .BYTE 0 3: CONTAINS ERROR FLAG 
(1) 001104 000000 SICNT: .WORD 0 CECONTAINS SUBTEST ITERATION COUNT 
(1) 001106 000000 SLPADR: .WORD 0 :: CONTAINS SCOPE LOOP ADDR 
(1) 001110 00 SLPERR: .WORD 0 ::CONTAINS SCOPE RETURN FOR ERRORS 
(1) 001112 000000 SERTTL: .WORD 0 TAINS TOTAL ERRORS DETECTED 
(1) 001114 = 000 SITEMB: .BYTE 0 3: CONTAINS ITEM CONTROL BYTE 
(1) 001115 001 SERMAX: .BYTE 1 Z:CONTAINS WAX. ERRORS PER TEST 
(1) 001116 000900 SERRPC: .WORD 0 CONTAINS PC OF LAST ERROR INSTRUCTION 
(1) 001120 000000 $GDADR: .WORD 0 FECONTAINS ADDRESS OF 'GOOD' DATA 
(1) 001122 000000 SBDADR: .WORD 0 Z:CONTAINS ADDRESS OF *BAD' DATA 
(1) 001124 000000 SGDDAT: .WORD 0 33CONTAINS ‘GOOD" DATA 
(1) 001126 000000 SBDDAT: .WORD 0 CONTAINS "BAD’ DATA 
(1) 001130 -WORD 0 S ]RESERVED--NOT TO BE USED 
(1) 001132 000000 -WORD 0 
(1) 001134 = 000 $AUTOB: .BYTE 0 ;sAUTOMATIC MODE INDICATOR 
(1) 001135 000 SINTAG: .BYTE 0 ZZINTERRUPT MODE INDICATOR 
(1) 001136 000000 , 0 
(1) 001140 177570 SW -WORD DSWR ssADDRESS OF SWITCH REGISTER 
(1) 001142 177570 DISPLAY: DDISP 33ADDRESS OF DISPLAY REGISTER 
(1) 001144 177560 $TkS: 177560 3: TTY KBD STATUS 
(1) 001146 177562 $TkKB: 177562 3: TTY KBD BUFFER 
(1) 001150 177564 $TPS: 177564 Z:TTY PRINTER STATUS REG. ADDRESS 
(1) 001152 177566 $TPB: 177566 3: TTY PRINTER BUFFER REG. ADDRESS 
(1) 001154 = 000 $NULL: .BYTE 0 Zi CONTAINS NULL CHARACTER FOR FILLS 
(1) 001155 002 SFILLS: .BYTE 2 
(1) jCONTAINS # OF FILLER CHARACTERS. REQUIRED 
(1) 001156 012 sritic: .evre 13 ssINSERT FILL CHARS. AFTER A “LINE FEED" 
(1) 001157 000 STPFLG: .BYTE 0 33 "TERMINAL AVAILABLE FLAG (BIT<07>=0=VES) 
(1) 001160 00 STIMES 3:MAX. NUMBER OF ITERATIONS 
(1) 001162 000000 SESCAPE :0 Z:ESCAPE ON ERROR ADDRESS 
(1) 001164 177607 000377 SBELL:  .ASCIZ <207><377><377> 3; CODE FOR BELL 
(1) 001170 = 077 $QUES: ASCII 3: QUESTION MARK 
(1) 001171 015 SCRLF: 7ASCI1 <15> 2: CARRIAGE RETURN 
(1) 001172 000012 $LF:  ASCIZ <12> E FEED 
(2) js ReeHeeeeeeeeeeHe eee ee eee eeeeeeeeeeeneeeneeaneeeneeeeeeeeeeeeee 
(2) "SBTTL APT MAILBOX-ETABLE 
s. Mute tern ea ar re Te eae ener 
(2) »EVE 
(2) 001174 SMAIL: 33APT MAILBOX 
(2) 001174 000000 SMSGTY: .WORD AMSGTY ::MESSAGE TYPE CODE 
(2) 001176 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
(2) 001200 000000 STESTN: .WORD ATESTN 331 
(2) 001202 $PASS: .WORD APASS 3:PASS COUNT 
(2) 001204 000000 SDEVCT: .WORD ADEVCT ;:DEVICE COUNT 
(2) 001206 000000 SUNIT: WORD AUNIT 31/0 UNIT NUMBER 


ee ee 


i 
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000000 
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~ 


S88 88888 
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000000 
000031 
000000 


000 
001225 000 


001250 176500 
001252 000017 
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APT MAILBOX-E TABLE 


SMSGAD: 
SMSGLG: 


- WORD 
WORD 


Hh $$ 19 ADDRESS 
Ae GE 


44 LENGTH 
T ENVIRONMENT TABLE 
+ ENVIRONMENT BYTE 


3APT SWITCH REGISTER 
scUsER SWITCHES 
gi © PU TYPE, eB 

$15-112CPU T 

1/04=01, "11 /05=02, 11/20=03,11/40=04 ,11/45=05 
1177006. PDQ=07,0=10 

T 10=REAL TIME CLOCK 
7 9=F LOATING POINT PROCESSOR 
T 8=MEMORY MANAGEMENT 
; HIGH ADDRESS M.S. BYTE 
EM. TYPE, ,BLKA#1 
hen. TYPE BYTE ~~ (HIGH BYTE) 


500 _NS 

_— aeareee 

MEM.LAST T ADDALSS. BYTES, THIS WORD AND LOW OF ‘‘TYPE*’ ABOVE 
HIGH ADDRESS.M.S. BYTE 


3 E.B 
i EWEN LAST ADDRESS. BLK#2 
3: :HIGH ADDRESS e M.S.BYTE 
omen. TYPE ,BLK# 

3MEM.LAST “ADDRESS, BLK#3 

HIGH ADDRESS.M.S.BY TE 

M. TYPE ,BLK#4 
sMEM.LAST ADDRESS,BLK&#4 
SIN NTERRUPT VECTOR#1 -BUS PRIORITY#1 
33 INTERRUPT VECTOR#2BUS PRIORITY#2 


eWORD_  ABASE 
3;BASE ADDRESS OF ot pinged A ee TEST 


: WORD 


ADEVM 


3;DEVICE MA 


SEQ 0023 


nn tr eee - _— 


| 
{ 
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— 


$3 ~SBTTL ERROR POINTER TABLE 
| (1) 3*THIS TABLE CONTAINS THE INFORMATION 4 EACH ERROR THAT CAN OCCUR. 
; @) 7*THE INFORMATION 3 uit AINED BY USING THE INDEX _N eT F N 
| (1) s*LOCATION SIVEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
(1) 3 *NOTE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA _IS (¢ 
$33 :*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
(1) 3* EM fess Ak TO THE rorry MESSAGE 
(1) 3* DH sPOINTS TO A HEADER 
(1) 3* DT ::POINTS TO THE DA TA 
3 3* DF 33;POINTS TO THE DATA FORMAT 
(1) 
(1) 001254 SERRTB 
8858 a3 GLOBAL DATA 
8859 001254 176500 DLADD: DLADDR 
8860 001256 000300 DLVEC: 300 
8861 001260 176500 DLADDR + QO 
2 262 176502 RBUF DLADDR + 2 
8863 001264 176504 TCSR DLADDR + 4 
8864 001266 506 TBUF DLADDR + 6 
8865 001270 000000 I 0 


8866 001272 000020 “BLKW 20. ;FOR RS STACK 
8867 001332 000000 RSSTACK:  *WORD 0 


mm a a - —_ —— meee ee 


ces 


“CNDLAAO DLVI1-J 
NDLAA.P11 


3 


ie 


DD ee ee ee ee ee ee ee ee ee eee ee ee Ye Ye 


RRND 3 3 3 NININUNININ A NUNNNNNNNNNNNDNN 3 3 


ee ee ee ee ee ee ee ee ee ee ee 


001334 


a dd 


001432 


001570 


001570 


001612 
001616 
001620 
001626 
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001100 
001140 
001100 
016210 
000300 
016010 
000300 


017142 


177777 


001526 
000176 
000174 
000004 


001202 
000200 


001216 


177777 
014450 
001654 
000042 
001214 
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000036 
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000042 
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ERROR POINTER TABLE 


START: 

-SBTTL INITIALIZE THE COMMON TAGS 

3;CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV #SCMTAG,R6 ssFIRST LOCATION TO BE CLEARED 
CLR (R6)+ 33;CLEAR MEMORY LOCATION 
BNE #SUR, R6 z:DONE? * 


BN z:LOOP BACK IF NO 
HSTACK, SP t:SETUP THE STACK POINTER 
s INITIALIZE A FEW vECTO ORS 
ass SCOPE ,A#IOTVEC :;10T VECTOR FOR SCOPE ROUTINE 
mov PR6,a#1OTVEC+2 = :LEV 
MOV FSERKOR a#EMTVEC :;EMT VECTOR FOR ERROR ROUTINE 
#PRO DAEMTVECYD s: LEVEL 6 


MOV 

3381702 
MOV #STRAP ,@#TRAPVEC TRAP VECTOR FOR TRAP CALLS 
MOV #PRG-@ATRAPVEC+2; -iéve 


MOV SENDCT ,SEOPCT 3SET Fup’ END-OF -PROGRAM ae 

CLR STIMES INITIALIZE NUMBER OF ITERATIONS 

CLR SESCAPE oeCb LEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX LOW ONE ERROR PER TEST 

MOV a. St PERR :EINITIALIZE THE LOOP wet Ae SCOPE 


MOV #. .SLPERR SETUP THE ERROR LOOP ADDR 
iiSIZE FOR A HARDWARE SWITCH REG ister. OR IT 
t:EQUAL TO A ‘'=1"', SETUP A SOFT SARE. SWITCH REGISTER. 
MOV aveER RVEC, © Cep ) s:SAVE ERROR VECTO 
MOV #64$,a#ERRVEC ;3:SET UP ERROR vect 
+: SETUP FOR ohn HARDWARE SWICH REGISTER 


MOV #DSWR, SWR 
MOV #DDISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER 
CMP #1, aSUR +: TRY To” REFERENCE HARDWARE SWR 
BNE 66$ +:BRANCH IF NO TIMEOUT TRAP OCCURRED 
‘AND THE HARDWARE SWR IS NOT = -1 
BR 688 ::BRANCH IF NO TIMEOU 
64$: MOV #65$, (SP) ':SET UP FOR TRAP RETURN 
65$: MOV ASWREG, SWR z:POINT TO SOFTWARE SWR 
MOV #DISPREG DISPLAY 
66$: MOV (SP)+,a#ERRVEC ;:RESTORE ERROR VECTOR 
CLR SPASS z:CLEAR PASS COUNT 
BITB #APTSIZE,SENVM iETEST USER SIZE UNDER APT 
BEQ 67$ YES,USE NON-APT SWITCH 
MOV #SSWREG, SWR ‘:NO,USE APT SWITCH REGISTER 


67$: 
-SBTTL TYPE PROGRAM NAME 
se TYPE — ae ) Pi PROGRAM IF sFARST 7 2 


BN NE 68$ ‘BRANCH IF NO 
cMP #SENDAD ,a#42 3sACT=11? 
eee 68$ FE ger 


IF YES 
YPE 69$ PE ASCIZ_ STRING 
- SBTTL Ger vatue” FOR SOFTWARE séiten REGISTER 
TST a#42 3c ARE WE RUNNING UNDER XXDP/ACT? 
BNE *0S ;sBRANCH IF YES 
CMPB SENV,#1 77ARE WE RUNNING UNDER APT? 
BEQ 708 :;BRANCH IF YES 


a 


SEQ 0025 


eS GES ee 


—— a EC tC CLS EE LO ES LLG TS LS OO 
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|CNDLAA.P11 3-DEC-82 13:5 T VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0026 
(2) 001630 023727 001140 000176 CMP SWR, #SWREG i 3 SOF TWARE SWITCH REG SELECTED? 
(2) 001636 001005 BNE 71$ F 
(2) 001640 104406 GTSWR SIGET SOFT “SUR SETTINGS 
(2) 001642 00040 BR 71$ 
(2) 001644 112737 000001 001134 708: MOVE «#1, SAUTOB z:SET AUTO-MODE INDICATOR 
(1) 001652 000414 BR 68$ 3GET OVER THE ASCIZ 
(1) ::69$: .ASCIZ <CRLF>*CNDLAAO pivit-u TEST*<CRLF> 
(1) 001704 68$: 





CNDLAAG DLV11-J 


CNDLAA.P11 


001732 
001736 


001742 
001742 


001746 
001746 


TEST 


012706 
004737 


012137 
011137 


013737 


013737 
062737 


013737 
062737 
013737 
062737 
012705 


012700 
077001 


000005 
005237 
123727 


MACY11 30(1046) 23=DEC-82 13:56 PAGE 161 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


33-DEC~82 13:55 


001254 
001256 


001254 


001254 
000002 


001254 
000004 
001254 
000006 
001332 
001000 


001204 
014166 
007000 


001102 


001206 


001260 


001262 
001262 


001264 
001264 


001266 
001266 


000001 


LOOP: 


$1: 


$2: 


JSR PC,SIZE 

CLR PHASE2 

MOV #1,SUNIT 

CLR CHAN 

CLR PICNT 

MOV #STACK,SP 
JSR PC,CYCLE 

MOV (ADRS) + ,DLADD 
MOV (ADRS) ,DLVEC 
MOV DLADD ,RCSR 
MOV DLADD , RBUF 
ADD #2,RBUF 

MOV DLADD, TCSR 
ADD #4,TCSR 

MOV DLADD , TBUF 
ADD #6, TBUF 

MOV #RSSTACK RS 
MOV #1000,R0 

SOB RO,. 

RESET 

INC SDEVCT 

CMPB PHASE2 ,# TRUE 
BNE 

JMP MODTST 

BR $2 

CLR STSTNM 


SEQ 0027 


sSIZE THE BUS IF SDEVM = 0 
sINIT FOR TESTS 


sRESET STACK POINTER 
; SETUP MODULE AND CHANN 


NNEL 
ADRS+2 => NEXT VECTOR 
*CeT UNIT AD ORESS 


LET DLADD := (ADRS)+ 
3;GET UNIT VECTOR 
LET DLVEC := (ADRS) 
;RCSR = DLADD + O 
LET RCSR := DLADD 
LET RBUF := DLADD + #2 
LET TCSR := DLADD + #4 
LET TBUF := DLADD + #6 
LET RS := MRSSTACK 


sDELAY TO ALLOW PRINT TO FINISH 
sBEFORE RESET 
BRESET 


LET 
IFB 


SDEVCT := SDEVCT + #1 
PHASE2 EQ #TRUE THEN 


GO TO PHASE 2 TESTING 
ELSE 


LET STSTNM := #0 
ENDIF 


CNDLAAO DLV11-J 
P11 23-DEC-82 


CNDLAA 


TEST 


000004 


012737 
012737 


013701 
012737 
012737 


005037 


012737 


005037 


005711 
005737 
001401 


104001 


062737 


013701 
063701 


023727 
001353 


MACY11 30(1046) 


13:55 


000002 
000001 


001254 


013610 
000300 


001270 


002136 


013616 


013616 


000002 


001254 
001270 


001270 


001160 
001200 


000004 
000006 


001110 


001270 


000010 


off eee 13:56 PAGE 162° 


T VALUE FOR SOFTWARE SWITCH REGISTER 


FERRARA EEAEEREEEEE EE EERE REAR EEEAEEREERERERAERREEREEEREEEEREE 


:STEST 1 ADDRESSABILITY 


fe THIS iEST VERIFIES THAT ALL 4 REGISTERS OF THE CHANNEL UNDER TEST 


3 RESPOND TO THEIR ADDRESSES. 


TS11: SCOPE 


MOV #2,$TIMES 
MOV #1,$TESTN 


MOV DLADD ADRS 


MOV #INTSRV,ERRVEC 
MOV #PR6,ERRVEC+2 


CLR I 

$3: 
MOV #64$,SLPERR 
CLR INTFLAG 
TST @ADRS 
TST INTFLAG 
BEQ $4 
ERROR 1 

$4: 
ADD #2,1 
MOV DLADD, ADRS 
ADD 1, ADRS 


CMP 1,48. 
BNE $3 


° 
EAP ALAAAAASASALAALAARL LALA ALATA ATER RRR RARER RRR DDO 


33D0_ 2 ITERATIONS 
23SET de NUMBER IN APT MAIL BOX 


ADRS := DLADD 
3 SET UP INTERRUPT 
PRIORITY LOWERED TO 6 
i10_ _BE SPECIFIC TO PDP 11/21 
LET i #0 
REPEAT 
BGNSUB 
CLEAR FLAG 
LET INTFLAG := 40 
sREAD FLAG 
IF INTFLAG NE #0 THEN 


: FATAL ERROR 
ERRDF 1 
ENDIF 
ENDSUB 
LET I := 1] + #2 
LET ADRS := DLADD + I 


UNTIL I EQ #8. 


SEQ 6026 





CNDLAAO DLV11-J_TEST 
CNDLAA.P11 


002252 
002260 












rere 


032777 
thst 
104030 


oer? 


032777 
001401 
104032 


012737 
005037 





MACY11 30(1046) 
23-DEC-82 13:55 


177476 


007400 


177476 


177400 


000006 
000006 





177050 


177040 


177030 


177020 


000004 


Dd 
ee: | 13:56 PAGE 163 


1$: 


2$: 


3$: 


4$: 


ADDRESSABILITY SEQ 0029 
Bt * tetteaaat sCHECK THAT ALL UNUSED BITS ARE 0 
ERROR 27 sRCSR HAS UNUSED BITS SET 

BIT #7400, aRBUF 

BEQ 2$ 

ERROR 30 ;RBUF HAS UNUSED BITS SET 

BIT #177476, aTCSR 

BEQ 3$ 

ERROR 31 3TCSR HAS UNUSED BITS SET 

BIT #177400 ,aTBUF 

BEQ 4$ 

ERROR 32 3 TBUF HAS ;UNUSED BITS SET 


MOV #6, ,ERRVEC sRESTORE 
CLR ERRVEC+2 


cc —- CS Or --C rOOOt eee ome oo ee ne 


| E 
|CNDLAAO DLV11-J_TEST MACY11 30(1046) mea 82 13:56 PAGE 164 


CNDLAA.P11 23-DEC-82 13:55 ADDRESSABILITY SEQ 0030 
8972 
8977 FERRARA AEEAAEEEAREREEEEE EEA EAEEAEAEEREEREREERAERARAREEREREEREREE 
8978 t% THE FOLLOWING 3 TESTS TEST ALL ‘READ WRITE’ BITS 
8979 J AAARAEAAEAAAEEREAE EEE RAE EEEAEEEEREEAAEEARAAAEREKEEAAEAAREEEEREEEES 
8980 
981 
Song SRRAAAAARARAEEAEE EAE EEEEEEEEERAAAAAEERAREEEEEAEAREAEERERERERERE 
(3) :STEST 2 BREAK = TCSR O SET, CLEAR, RESET 
(4) ie THIS BIT IS Tye suey ONE IN THIS POSITION 
(4) ie THAT IS READ AND WRITE. 
(3) AR. MB AA. |. En On NT 
(2) 002264 000004 $12: SCOPE 
(1) 002266 012737 000010 001160 MOV #10, $TIMES 3:00 10 ITERATIONS 
as? 002274 012737 000002 001200 MOV #2, $TESTN 3:SET TEST NUMBER IN APT MAIL BOX 
8992 002302 IF #BRK NOTSETIN SUSWR THEN 
(6) 002302 032737 000010 001220 BIT #BRK,SUSWR 
(9) 002310 001001 BNE $5 
8993 002712 EXIT ; BREAK NOT INSTALLED 
(3) 002312 000452 BR TST3 scEXIT THIS TEST 
8994 002314 ENDIF 
(4) 002314 $5: 
8995 
8996 : SEE IF IT IS CLEAR 
8997 002314 BGNSUB 
me} 002314 012737 002322 001110 MOV #64$,$LPERR 
8999 002322 IF #BREAK SETIN a@TCSR THEN 
(6) 002322 032777 000001 176734 BIT #BREAK,aTCSR 
(9) 002330 001401 BEQ $6 
9000 ; BREAK DID NOT RESET IN TCSR 
002332 ERRHRD 2 
(1) 002332 104002 ERROR 2 
2 002334 ENDIF 
(4) 002334 $6: 
3 002334 ENDSUB 
9004 
9005 ; TRY TO SET BREAK BIT 
9006 002334 BGNSUB 
(5) 002334 012737 002342 001110 MOV #64$,SLPERR 
002342 LET  aTCSR := @TCSR SET.BY #BREAK 
(7) 002342 052777 000001 176714 BIS #BREAK ,aTCSR eng 
9009 002350 IF #BREAK NOTSETIN @TCSR THEN 
(6) 002350 032777 000001 176706 BIT #BREAK ,aTCSR 
(9) 002356 001001 BNE $7 
9010 : BREAK DID NOT SET IN TCSR 
9011 002360 ERRHRD 3 
(1) 002360 104003 ERROR 3 
9012 002362 ENDIF 
(4) 002362 $7: 
9015 002362 ENDSUB 
9015 ; TRY TO CLEAR A SET BIT 
9016 002362 BGNSUB 





[—o on en rr 


|CNDLAAO DLV11-J_TEST 


MACYI1 30(1046) _23-DEC 
|CNDLAA.P11 T 


23-DEC-82 13:55 
012737 002370 001110 


S 
g 


002370 042777 000001 176666 


Myo 


002376 032777 000001 176660 
002404 


001401 


~88.~388-88 


™m 
me Ne a or et 
i} 
wW 
S 
o> 


S 
gs 


2406 104004 
002410 $10: 


(5) 002410 012737 002416 001110 


(7) 002416 052777 000001 176640 
9030 


000005 


(6) 002426 032777 000001 
001401 


176630 


34 
(1) 002436 104005 


002440 $11: 
002440 


A. 
“82 13:56 PAGE 164-1 
BREAK = TCSR 0 SET, CLEAR, RESET 


MOV 


BIC 


BIT 
BEQ 


ERROR 


MOV 
BIS 
RESET 
BIT 
BEQ 


ERROR 


#64$,S$LPERR 
LET  aTCSR := @TCSR CLR.BY #BREAK 
#BREAK ,aTCSR 
: SHOULD HAVE CLEARED 
IF #BREAK SETIN aTCSR THEN 
#BREAK .ATCSR 
» BREAK DID NOT CLEAR IN TCSR 
, ERRHRD 4 
ENDIF 
ENDSUB 
: NOW SEE IF RESET CLEARS IT 
BGNSUB 
#64$,S$LPERR 
LET  aTCSR := @TCSR SET.BY #BREAK 
#BREAK ,aTCSR 
; ISSUE BUS RESET 
BRESET 
IF #BREAK SETIN @TCSR THEN 
#BREAK,@TCSR 
- BREAK DID NOT RESET IN TCSR 
' ERRHRD 5 


ENDIF 
ENDSUB 


SEQ 0031 


| CNDLAAO DLV11-)_TEST 


| CNDLAA.P11 


| 
| 


90 
9039 


$8-$338838.~—--8 
WAP She te by parent otey Mr: +7} 


83... 
UMNO 
Nw a 


(1) 


23-DEC-82 


000004 


012737 
012737 


012737 


032777 
001401 


104012 


012737 
052777 


032777 
001001 


104013 


012737 
042777 


032777 
001401 


104014 


000010 
000003 


002476 


000100 


002516 
000100 


000100 


002544 


000100 


000100 


30(1046) 


001110 


176560 


001110 
176540 


176532 


001110 


176512 


176504 


G 
gr eet-ee 13:56 PAGE 165 
T BREAK = TCSR 0 SET, CLEAR, RESET 


© RARER AAAEAAAAAAEAAAAAEEERERAEAERAAAAAAAAAARERAARAAEAAREREEAEAREAEE 


T*TEST 3 XMITIE = TCSR 6 SET, CLEAR, RESET 
Ff RAARARAAEE AA EREAAAEEREEEEEEEEEAEAAEREREEEREEEEAHERARERREEEEREREE 
TST3: SCOPE 

MOV #10, $TIMES 3:00 10 ITERATIONS 

MOV #3, $TESTN [:SET TEST NUMBER IN APT MAIL BOX 


3 USE PRIORITY OF 6 


SETPRI #PR6 

; SEE IF IT JS CLEAR 

BGNSUB 
MOV #65$,SLPERR 


IF #XMITIE SETIN @TCSR THEN 


BIT #XMITIE ,@TCSR 
B $12 


E 
ERROR 12 
ENDIF 
$12: 
ENDSUB 
; TRY TO SET XMITIE BIT 
BGNSUB 
MOV #64$ ,SLPERR 
LET @TCSR := @TCSR SET.BY #XMITIE 
BIS #XMITIE,aTCSR 
3; STUCK TO 0 
IF #XMITIE NOTSETIN @TCSR THEN 
BIT #XMITIE,aTCSR 
BNE $13 
3; XMIT DID NOT SET IN TCSR 
ERRHRD 13 
ERROR 13 
ENDIF 
$13: 


ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
MOV #64$ ,SLPERR 


LET @TCSR := @TCSR CLR.BY #XMITIE 


; SHOULD HAVE CLEARED 
IF #XMITIE SETIN @TCSR THEN 


BIC #XMITIE ,aTCSR 


BIT #XMITIE,@TCSR 
$14 


XMIT DID NOT CLEAR IN TCSR 


ERRHRD 14 
ENDIF 


ERROR 14 


; XMITIE DID NOT RESET IN TCSR 
RRHRD 12 


SEQ 0032 





oo 


“CNDLAAO DLV11 
pu 


(4) 
9080 
9081 





002564 
002564 


002564 
002564 





"3s 


TEST 





MACY11 30(1046) 


“DEC-82 13:55 


012737 
052777 
000005 
032777 
001401 


104015 


002572 001110 


000100 176464 


000100 176454 


3 
Meat 13:56 _PAGE 165" 1 


$14: 


MITIE - 


MOV 
BIS 
RESET 


BIT 
BEQ 


ERROR 


TCSR 6 SET, CLEAR, RESET 
ENDSUB 
: NOW SEE IF RESET CLEARS IT 
BGNSUB 
#64$,$LPERR 
LET  aTCSR := @TCSR SET.BY #XxMITIE 
#XMITIE ,aTCSR 
ISSUE BUS RESET 
BRESET 
IF #XMITIE SETIN @TCSR THEN 
#XMITIE,ATCSR 
XMIT DID NOT RESET IN TCSR 
. ERRHRD 15 


ENDIF 
ENDSUB 


SEQ 0033 


nae ne tr ree 


| 


| CNDLAAO DLV11-J_TEST 
|CNDLAA.PIT = 23=DEC~82 15:55 


VSVVUUESVS 


REE meane nee nee 
oo Oo oO 0 Oo OooUuUUW Oo wovo 
~ on ~ Sa ie ee enti anak dh ahah tit dh an a a a a 33 
moty} wase RON RAS CNS COV CDNAS RWS ONAL OSE EEE CERN 
[=] 
sssss S88 sess ssese § 
SSSI LES FEAR BAGG F 
SSSaa & m NMNMNSSo O&O 


002652 
002660 


000004 
012737 
012737 
012737 
032777 
001401 


104035 


012737 
052777 


032777 
001001 


104036 


012737 
042777 


032777 
001401 


104037 


MACY11 


000010 
000004 
002640 


000100 


002660 
000100 


000100 


002706 
000100 


000100 


30(1046) ' 3-DEC-8 


I 
2 13:56 PAGE 166 
XMITIE = TCSR 6 


SET, CLEAR, RESET 


SE RRRAAAAAERAEEEREREEEER ERE REREREERERERAEAEEEEEREEEEEREREREREEEE 


RCVRIE = RCSR 6 SET, CLEAR, RESET 
THIS BIT IS THE ONLY ONE IN THIS POSITION 
THAT IS READ AND WRITE. 


° 
© REAR AAEAEAAAEAAEAAEEEEEAEEAEEAEEERAAEEAES KHERAEHRAERAEEREEEEEREEE 


T*TEST 4 
st 
1ST4: SCOPE 
001160 MOV 
001200 MOV 
001110 MOV 
176412 BIT 
BEQ 
ERROR 
$16: 
001110 MOV 
176372 BIS 
176364 BIT 
BNE 
ERROR 
$17: 
001110 MoV 
176344 BIC 
176336 BIT 
BEQ 
ERROR 
$20: 


ae 3 ee + 


#10,STIMES 3:D0_10 ITERATIONS 


#4, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
; SEE IF IT IS CLEAR 
BGNSUB 
#64$,$LPERR 
IF WRCVRIE SETIN @RCSR THEN 
#RCVRIE .RCSR 
: RCVRIE DID NOT RESET IN RCSR 
ERRHRD 35 
35 
ENDIF 
ENDSUB 
; TRY TO SET RCVRIE BIT 
BGNSUB 
#64$,$LPERR 
; LET  a@RCSR := @RCSR SET.BY #RCVRIE 
#RCVRIE ,ARCSR 
: STUCK TO 0 
IF WRCVRIE NOTSETIN @RCSR THEN 
#RCVRIE .ARCSR 
: RCVRIE DID NOT SET IN RCSR 
ERRHRD 36 
36 
ENDIF 
ENDSUB 
; TRY TO CLEAR A SET BIT 
BGNSUB 
#64$,$LPERR 
LET | @RCSR := @RCSR CLR.BY #RCVRIE 
#RCVRIE,@RCSR 
: SHOULD HAVE CLEARED 
IF WRCVRIE SETIN @RCSR THEN 
#RCVRIE ,ARCSR 
: RCVRIE DID NOT CLEAR IN RCSR 
= ERRHRD 37 


ENDIF 


SEQ 0034 


yew DLVI1-J 


NDLAA.P11 
9137 002726 


002726 
002726 


oO 
= 
ws 
oO 


TEST 


012737 
052777 


000005 
032777 
001401 


104040 





MACY11 3041046) 
23-DEC-82 13:55 


002734 001110 


000100 176316 


000100 176306 


Deceit | 13:56 PAGE 166-1 
RCVRIE = RCSR 6 


MOV 
BIS 
RESET 
BIT 
BEQ 


ERROR 


$21: 


SET, CLEAR, RESET 


ENDSUB 


3; NOW SEE IF RESET CLEARS IT 
BGNSUB 


#64$ ,SLPERR 


#RCVRIE ,@RCSR 


#RCVRIE ,ARCSR 
$21 


40 


LET @RCSR := A@RCSR SET.BY #RCVRIE 


ISSUE BUS RESET 
BRESET 


IF MRCVRIE SETIN @RCSR THEN 
PAA A DID NOT RESET IN RCSR 
ENDIF 

ENDSUB 


SEQ 0035 





- 
‘ewbLAAO DLV11-J_TEST MACY11 30(1046) eo 13:56 PAGE 167" 


CNDLAA.P11 23-DEC-82 13:55 RCVRIE = RCSR 6 SET, CLEAR, RESET SEQ 0036 
318 
9) 5 J AAAAAAARAAAAEAEERE EERE REEAEEAEAAERERARAAAEREAERERARAAEEEEERREES 
3} tSTEST 5 TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT 
( ) RREAKEAAAERAAAAAAAAEAEEEEAETAAAERAARAAAARAARAAAERAARERAEREEAREEEAEAEEEE et 
(2) 002756 000004 i815: SCOPE 
(1) 002760 012737 000010 001160 MOV #10 $TIMES 3200 10 ITERATIONS 
me} 002766 012737 000005 001200 MOV #5,$TE [SET TEST NUMBER IN APT MAIL BOX 
9163 002774 BGNSUB 
mt) 002774 012737 003002 001110 MOV #64$,SLPERR 
9165 003002 IF #XMITRDY NOTSETIN aTCSR THEN 
(6) 003002 032777 000200 176254 BIT AXMITRDY ,aTCSR 
001002 BNE $22 





RESET SHOULD HAVE SET BIT. 
:XMITRDY DID NOT SET IN TCSR (AFTER RESE 


ERRHRD 42 
ERROR 42 
sISSUE ANOTHER RESET 
BRESET 
RESET 
ENDIF 


ALLOW LOOPING ON ERROR 
ENDSUB 


I 








ee eo ee ete ee er ee a ee en oe ne ee ee ee 


—— 


L 
CNDLAAO DLV11=J TEST _ MACY11 30(1046) 23=DEC-82 13:56 PAGE 168 
CNDLAA.P11 23-DEC-82 13:55 8 TEST THAT XMITRDY = TCSR 7 = IS SET BY INIT SEQ 0037 
a8 
9186 3 $s SREAAAEAAEAAEAAEAAAAAAETEEAAEAARAAAAAAEAAEAEAAREREEEEAEEAEREEEEREE 
(3) T*TEST 6 TEST THAT XMIT RDY = TCSR 7 = CLEARS 
(4) is WHEN rey 1S LOADED WITH A CHARACTER 
(4) AND THAT IT SETS WITHIN A REASONABLE AMOUNT OF TIME. 
(3) RAAAAAEAAAEAAAAAAAEEEEAEAEAEATAEAEEAAAARARAEREREAEAAREEEEEREEAREKREEEEE 
(2) 003016 000004 us SCOPE 
(1) 003020 012737 000010 001160 MOV #10,$TIMES 3:00 10 ITERATIONS 
me) 003026 012737 000006 001200 MOV #6,$TESTN ':SET TEST NUMBER IN APT MAIL BOX 
9192 003034 IF CONSOL EQ #TRUE THEN 
(6) 003034 023727 013604 000001 CMP CONSOL ,# TRUE 
(9) 003042 001001 BNE $23 
9193 003044 EXIT 
(3) 003044 000521 BR TST7 zsEXIT THIS TEST 
9194 003046 ENDIF 
9(32 3046 $23: 
9196 003046 LET PASS := #0 ;INIT COUNT OF TIMES THRU 
(4) 003046 005037 003302 CLR PASS 
9197 003052 LOOP : START OF LOOP 
(3) 003052 $24: 
9198 : MAX OF 2 TIMES THRU 
9199 003052 LET ERRORFLAG := #0 
(4) 003052 005037 003304 CLR ERRORFLAG 
9200 003056 LET EXITFLAG := #0 
(4) 003056 005037 003306 CLR EXITFLAG 
9201 ; LOAD TBUF WITH ONE CHARACTER 
9202 : WAIT FOR READY TO SET 
9203 + (SHOULD BE VERY SHORT WAIT 
9204 : SINCE UART DOUBLE BUFFERS ITS INPUT) 
9206 :SEND A CHARACTER 
9207 003062 LET @TBUF :B= #0 
(4) 003062 105077 176200 CLRB = aT BUF 
9208 :WAIT A MAXIMUM 
9209 3 OF 50M 
9210 XMIT veto T IN TCSR 
9211 003066 CALL” THER tN C#500 WAM TROY. TCSR.#SET> 
(3) 003066 010546 MOV R5,-(SP) 
(7) 003070 012745 177777 MOV #SET,-(R5) 
(6) 003074 013745 001264 MOV TCSR,-(R5) 
(5) 003100 012745 000200 MOV #XMI TROY, (RS) 
(4) 003104 012745 000500 MOV #500,-(R5) 
(3) 003110 004737 012446 JSR PC, TIMER 
(3) 003114 012605 MOV (SP)+,R5 
9212 ;TIMER RETURNS AN ERROR IF BIT DID 
9213 NOT MEET CONDITION WITHIN TIME LIMIT 
9214 003116 IF. ERROR THEN 
9595 wae we a ass pXMIT A) DID NOT SET IN TCSR 
9216 003120 ERR 
(1) 003120 104066 ERROR 66 
9217 003122 000137 003310 JMP TS17 




















9218 
) 


CNDLAAO DLV11 
CNDLAA.P11 


iit. 


TEST 
~DEC-82 


105077 
000240 
032777 
001404 
012737 


000416 


023727 
001013 


005237 
023727 
003404 


176122 


000200 176110 


177777 003304 


177777 
001264 
000200 
001000 
012446 


003304 177777 


003302 
003302 000001 


1 30(1046) 





” decd 82 13:56 PAGE 1681 


$26: 


1$: 


$27: 


$31: 
$30: 


TEST THAT XMIT RDY = TCSR 7 = CLEARS 


CLRB 
TSTB 
BPL 


CLRB 


BIT 
BEQ 


MOV 


aTBUF 
is 


sSHIP 1°ST CHAR 
;WAIT FOR RDY 


SEQ 0038 
ENDIF 


; LOAD TBUF WITH A SECOND CHARACTER (TO me BUFFER) 
3 CHECK IMMEDIATELY inoue IS CLEAR 


; AND THEN WAIT FOR IT T 


aTBUF 
#XMITRDY ,ATCSR 
$27 


#SET ,ERRORFLAG 


$30 


(SP) 
Beer =(R5) 


(SP)+,R5 
$31 


70 


ERRORFLAG, #SET 
$32 


PASS 
PASS, #1 
$33 


: SEND SECOND CHARACTER 
LET @TBUF :6= #0 


3 GIVE IT | TO CLEAR 
: XMIT er SHOULD HAVE CLEARED UPON 
A_CHARACTER 


RECEIPT OF 
IF aiMITRDY SETIN: @TCSR THEN 


: XMITRDY DID NOT CLEAR IN TCSR 
; WILL RESULT IN ERR 67 IF FAILS 2x 
iet ERRORFLAG := #SET 


; DEFER ERROR TYPEOUT 
ELSE 


sWAIT 4 MAX IMUM 


XMIT_RD TCSR 
CALL TIMER IN <#1000, PXMITRDY, TCSR,#SET> 


IF .ERROR THEN 


| 
:XMIT RDY DID NOT SET IN TCSR | 
ERRHRD 70 | 
ENDIF | 


ENDIF ; OF DEFERED ERROR CALL 
IF ERRORFLAG EQ #SET THEN 


LET PASS := PASS + #1 
IF PASS GT #1 THEN 


: CALL ERROR IF 2ND TRY 





N. 3 
CNDLAAO D a TEST MACY11 30(1046) 23-DEC-82_ 13:56 PAGE 168-2 
CNDLAA.P1 3-DEC-82 13:55 T6 TEST THAT XMIT RDY = TCSR 7 = CLEARS SEQ 0039 


9251 » ON XMIT RDY NOT CLEARING 
9252 003246 ERRHRD 67 

(1) 46 104067 ERROR 67 

9253 00 LET EXITFLAG := #SET 
(4) 003250 012737 177777 003306 MOV #SET,EXITFLAG 

9254 903256 ENDIF 

003256 $33: 

003256 ELSE : NO ERROR 
003256 000403 SR $34 

003260 $32: 

003260 LET EXITFLAG := #SET 
003260 012737 177777 003306 MOV #SET,EXITFLAG 

003266 ENDIF 

003266 $34: 

003266 EXIF EXITFLAG EQ #SET 
023727 003306 177777 CMP EXITFLAG,#SET 

001401 BEQ $25 

003276 ENDLOOP 

003276 000665 BR $24 

itty ~— EXIT ; SKIP AROUND FLAG WORDS 
(3) 003300 000403 BR TST7 z:EXIT THIS TEST 


00 000000 PASS: 0 
94 003304 000000 ERRORFLAG: 0 
9263 003306 000000 EXITFLAG: 0 


Ss) oO ©o © © oO 
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CNDLAAO DLV11=y TEST — MACY11 30(1046) 17 3-DEC~82 13:56 PAGE 169 
CNDLAA.P11 23-DEC-82 13:55 TEST THAT XMIT RDY = TCSR 7 = CLEARS SEQ 0040 
aes 
9275 FRRAREAEEAEEREEEREOREEEEEREREEEEEEEAERAEREEEEEREREREEREREEEREREEE 
(3) tSTEST 7 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) 
(4) 3 RESULTS IN RCVRDONE SETTING WITHIN A REASONABLE AMOUNT OF TIME 
(4) i* AND THAT RESET CLEARS THE BIT. 
(3) : : REREAEAKEEAEAEEAAEEEEEEALAAAAAAAARAAAREREAAEEEEEREAEEEEEAEEREKRE 
(2) 003310 000004 TST7: SCOPE 
(1) 003312 012737 000010 001160 MOV #10 STINES ::D0 10 ITERATIONS 
93) 003320 012737 000007 001200 MOV #7,$TE t:SET TEST NUMBER IN APT MAIL BOX 
9281 003326 IF WRAP NOTSETIN $USWR OR CONSOL EQ #TRUE THEN 
(6) 003326 032737 000020 001220 BIT #WRAP,SUSWR 
(8) 003334 001404 BEQ 35 
(6) 003336 023727 013604 000001 CMP CONSOL , #TRUE 
(9) 003344 001001 BNE $36 
(6) 003346 $35: 
9282 003346 EXIT 
(3) 003346 000434 BR TST10 ssEXIT THIS TEST 
9283 003350 ENDIF 
(4) 003350 $36: 
9284 
9285 003350 BGNSUB 
(5) 003350 012737 003356 001110 MOV #64$,SLPERR 
9286 ! SEND A CHARACTER AND LET IT WRAP AROUND 
9288 003356 LET aTBUF :B= #0 
963) 003356 105077 175704 CLRB = ATBUF 
9290 : WAIT A MAXIMUM OF 50 MSEC 
9291 t FOR RCVR DONE TO SET IN 
9293 003362 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
(3) 003362 010546 MOV RS,=(SP) 
(7) 003364 012745 177777 MOV ASET o(RS) 
(6) 003370 013745 001260 MOV RCSR.=(R5) 
(5) 003374 012745 000200 MOV #RCVRDONE ,-(R5) 
(4) 003400 012745 000500 MOV #500,-(R5) 
(3) 003404 004737 012446 JSR PC, TIMER 
of 003410 012605 MOV (SP)+,R5 
9295 :DIDN'T SET IN TIME 
9296 003412 IF. ERROR THEN 
(6) 003412 103001 BCC $37 
9297 ; RCVRDONE DID NOT SET IN RCSR 
9298 003414 ERRHRD 71 
(1) 003414 104071 ERROR 71 
9299 003416 ENDIF 
(4) 003416 $37: 
9300 
9301 003416 ENDSUB 
9303 003416 BGNSUB 
(5) 003416 012737 003424 001110 MOV #64$,$LPERR 


9304 ; NOW THAT IT IS SET SEE IF IT CAN BE RESET 


Oe ee YF 


|CNDLAAC DLV11-J_TEST MACY11 30(1046) See 82 13:56 PAGE 169-1 
CNDLAA.P11 23-DEC-82 13:55 TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) SEQ 0041 
9305 003424 BRESET 
9508 003424 000005 RESET 
9307 003426 IF #RCVRDONE SETIN @RCSR THEN 
(6) 003426 032777 000200 175624 BIT #RCVRDONE ,ARCSR 
(9) 003434 001401 BEQ $40 
9308 RCVRDONE DID NOT RESET IN RCSR. 
9309 003436 ERRHR D 72 
(1) 003436 104072 ERROR 72 
9310 003440 ENDIF 
(4) 003440 $40: 


9311 003440 ENDSUB 


. 
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-—_—--—---- 
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9325 


003546 
003546 
003554 


TEST 


23-DEC-82 


000004 
012737 
012737 
032737 
001404 
023727 
001001 


000433 
012737 


105077 


052777 


MACY1 
13:55 


000010 
000010 


000020 
013604 


003506 


175554 


177777 


012446 


000001 


1 30(1046) 


001220 
000001 


001110 


175504 


Di | 13:56 PAGE 170 
TEST THAT OUTPUTTING A CHAR FROM TBUF (WITH WRAP CONNECTED) SEQ 0042 


FERRARA EREREEEEEEREEE REE EEEEEEEERAEEEAEEAEEEEEEEEEREREEREKEEEE 


TEST 10 


SARA EA AEE EEEEERERERERAEEEAERAEAARERRAEEEAEEREEEEEKEEEEE 


18110: 


$41: 


$42: 


$43: 


SCOPE 


MOV 
MOV 


MOV 


CLRB 


BIS 


TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE 


#10, STIMES 3300 _10 ITERATIONS 
#10, $TESTN :3SET TEST NUMBER IN APT MAIL BOX 
IF #WRAP NOTSETIN $USWR OR CONSOL EQ #TRUE THEN 
#WRAP ,SUSWR 
CONSOL , # TRUE 
$42 
EXIT 
TST11 3sEXIT THIS TEST 
ENDIF 
BGNSUB 
#64$ ,SLPERR 


: OUTPUT A CHARACTER AND WAIT FOR XMITRDY TO SET. 


OUTPUT A CHARACTER 
LET STBUF :B= #0 


: WAIT MAXIMUM OF 500 MSEC 
: FOR RCVRDONE TO SET IN 


: R 
CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 


aTBuUF 


R5,=(SP) 
#SET,=(R5) 


RCSR,=(R5) 
#RCVRDONE ,-(R5) 
#500 


J (RS) 
PC, TIMER 
(SP)+,R5 
DID IT BECOME READY? 

wat IF ERROR THEN 

:RCVRDONE DID NOT SET IN RCSR 
_ ERRHRD 25 

; SET IT BACK TO CONTINUE 

ENDIF 
ENDSUB 


NOW THAT IT IS SET LETS SEE IF SETTING 
;READER ENABLE CLEARS RCVRDONE 


LET @RCSR := @RCSR SET.BY #RDRRUN 
IF #RCVRDONE SETIN @RCSR THEN 


#RDRRUN,ARCSR 


SE ES ER Ee ee ee ee ee ee _ 


ENDLAAO DLVI1- 


83 


TEST MACY11 30(1046) 
“DEC-82 13:55 


Oerr? 000200 175476 
001401 


-CNDLAA.P11 
(6) 003554 
(9) 003562 
_ 9351 
| 9352 003564 
/ (1) 003564 104026 
| 9353 
9354 003566 


| "4 003566 


+ asics | 13:56 PAGE 170-1 
TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE 


BIT #RCVRDONE ,ARCSR 
BEQ $44 


; RCVRDONE DID NOT CLEAR IN RCSR 
ERRHRD 26 


ERROR 26 
; SET IT BACK TO CONTINUE 


ENDIF 
$44: 


SEQ 0043 


i EE — a a 


CNDLAAO DLV11-J_TEST 


CNDLAA.P11 


9356 
+344 


atatateter 
MN NIWWw 
WrewwvuveNnd 


oo 
ts 


003566 000004 


003570 012737 
003576 012737 


032737 
001404 
003614 023727 

001001 
003624 000432 


003626 012737 


003634 105077 


sty td 


003674 117700 


23-DEC-82 


MACY1 
13:55 


000010 
000011 


000020 
013604 


003634 


175426 


177777 


012446 


175362 


1 30(1046) 


001160 
001200 


001220 
000001 


001110 


ex-DEC~Ce 13:56 PAGE 171 
710 TEST THAT RCVRDONE IS CLEARED BY SETTING READER ENABLE SEQ 0044 


FARRAR AAEAAERAAEAA EEE EEE HERE AEAEEEEEAAEEAEERAEAEAEEEAEHEHREREEKEE 


sSTEST 11 


FERRARA AAAAEAEAAATEEEAEE HEE EEREAAHAERAAEREREREEEREAEERNEKEEEE 


tér11: 


$45: 


$46: 


$47: 


SCOPE 


MOV 


CLRB 


MOVB 


TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


#10, STIMES 3:D0 10 ITERATIONS 
#11. $TESTN [:SET TEST NUMBER IN APT MAIL BOX 
IF #WRAP NOTSETIN $SUSWR OR CONSOL EQ #TRUE THEN 
#WRAP, SUSWR 
CONSOL , # TRUE 
$46 
EXIT 
TST12 srEXIT THIS TEST 
ENDIF 
BGNSUB 
#64$,$LPERR 
: OUTPUT A CHARACTER AND WAIT FOR RCVRDONE TO SET. 
: OUTPUT ’A CHARACTER 
LET @TBUF :B= #0 
aTBuF 
: WAIT MAXIMUM OF 500 MSEC 
: FOR. RCVRDONE TO SET IN 
on acta CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
#SET,-(R5) 
RCSR_=(R5) 
#RCVRDONE , = (RS) 
#500,-(R5) 
PC, TIMER 
(SP)+,R5 
DID IT BECOME READY? 
- IF.ERROR THEN 
gRCVROONE DID NOT SET IN RCSR 
a ERRHRD 7 


; SET IT BACK TO CONTINUE 
ENDIF 


ENDSUB 


: NOW THAT IT IS SET LETS SEE IF READING THE 
; BUFFER CLEARS RCVRDONE. 


:READ BUFFER 
LET RO :B= aRBUF 
a@RBUF ,RO 


/CNDLAAO DLVI1-J_TEST macy 30(1046) mt mca | 13:56 PAGE 171-1 
CNDLAA.P11 23-DEC-82 13:5 TEST THAT RCVRDONE IS CLEARED BY READING RBUF SEQ 0045 


9395 003700 IF #RCVRDONE SETIN @RCSR THEN 
(6) 003700 032777 000200 175352 BIT #RCVROONE ,ARCSR 
(9) 003706 001401 BEQ $50 
9396 ;RCVRDONE DID NOT CLEAR IN RCSR 
9397 003710 ERRHRD 74 
(1) 003710 104074 ERROR 74 
9398 3 SET IT BACK TO CONTINUE 
9399 003712 ENDIF 
(4) 003712 $50: 


A A SS ce a 
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tee eh KK OM 
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R~RRR~~X~ 
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000004 
012737 
012737 
005737 
001007 
032737 
001401 
000401 


000524 


000401 


000522 
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013604 


000020 


003764 


175276 


001220 


001110 


mf as | 13:56 PAGE 172 
TEST THAT RCVRDONE IS CLEARED BY READING RBUF 


J AAAAAAAAAAAAAAEEAAEAAAAEEREEAAAAAAAEAEEAAERAEREAEEREREREEAREREEE 


:STEST 12 TEST THE OVERRUN & ERROR BITS = RBUF 14 
RAE EAEAAAEAEKEREAEAAEAARAAAAAAAEAAAAEEEAEEAREEAREEEAEEREE 
Tét12: SCOPE 
MOV #10,STIMES 32:00 10 ITERATIONS 
MOV #12. STESTN :zSET TEST NUMBER IN APT MAIL BOX 
IF CONSOL EQ #0 THEN 
TST CONSOL 
BNE $51 
IF #WRAP SETIN SUSWR THEN 
BIT #WRAP , SUSWR 
BEQ $52 
33 NULL ---EXECUTE TEST 
ELSE 
BR $53 
$52: 
EXIT 
BR TST13 ssEXIT THIS TEST 
ENDIF 
$53: 
ELSE 
BR $54 
$51: 
EXIT 
BR TST13 szEXIT THIS TEST 
ENDIF 
$54: 
BGNSUB 
MOV #64$, SLPERR 


OUTPUT 2 CHARACTERS 
;THIS SHOULD AN CAUSE OVERRUN ERROR. 


OUTPUT 1 CHARACTER 
:B= #0 


LET aTBUF 

CLRB = aT BUF 
CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 

MOV 5,-(SP) 
MOV #SET, -(RS) 
MOV RCSR,=( 
MOV #RCVRDONE ,-(R5) 
MOV #500,-(R5) 
JSR PC. TineR 
MOV (SP) +,R5 


DID IT SET IN TIME? 
IF .ERROR THEN 


zRCVRDONE DID NOT SET IN RCSR 


BCC $55 


em me ee 


SEQ 0046 





‘ 


CNDLAAO DLV11-J_ TEST MACY11 30(7046) fst Fe 13:56 PAGE 172-1 
CNDLAA.P11 23-DEC-82 13:55 TEST THE OVERRUN & ERROR BITS = RBUF 14 SEQ 0047 


! 
| 
| 
9437 004022 ERRHRD 16 
(1) 004022 104016 ERROR 16 
9438 004024 ENDIF 
(4) 004024 $55: 


9440 :OUTPUT = CHARACTER 
9441 004024 LET @TBUF :B= #0 
(4) 004024 105077 175236 CLRB = @TBUF 
944 : :LET OVERRUN HAPPEN 
9443 004030 WAITMS 300. 
6 MOV -(SP) 
5 000454 MOV F360 se cRS) 
7? 012620 JSR PC WAIT 
5 MOV (SP)+, RS 


READ BUFFER AND ERROR BITS 
9446 004044 LET R4 := @RBUF 
(4) 004044 0177046 175212 MOV @RBUF ,R4 


9448 z1T DIDN'T SET 
9449 004050 IF #ORERR NOTSETIN R4 THEN 
(6) 004050 052704 040000 BIT — 


(9) 004054 001002 BNE 
sORERR DID NOT SET IN RBUF 
004056 ) ERRHRD 101 

004056 104101 ERROR 101 


;NO_USE COMPOUNDING ERRORS 
BR TST13 3sEXIT THIS TEST 
ENDIF 


004062 $56: 
004062 ENDSUB 


sNOW SEE IF ERROR BIT SET WITH OVERRUN ERROR: 
BGNSUB 


062 
(5S) 004062 012737 004070 001110 MOV #64$ ,SLPERR 
60 004070 IF #ERROR NOTSETIN R4 THEN 
(6) 004070 032704 100000 BIT #ERROR ,R4 
(9) 004074 001002 BNE $57 


9462 ERROR DID NOT SET IN RBUF 
076 ERRHRD 102 
076 104102 ERROR 102 


P.LLLL- 2 LLL. LP 
BULROMS RUNS LS 
3 $3 
z 
oO 
: 


z7WHEN ORERR SET. 
;GET OUT NOW. 


XIT 
000450 BR TST13 3sEXIT THIS TEST 
ENDIF 


$57: 
ENDSUB 


BGNSUB 
012737 (004110 001110 MOV #64$ ,SLPERR : 
72 sCHECK REAL RBUF TO SEE IF ORERR IS STILL SET. 


2 
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e- - 
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TEST 
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032777 040000 175144 
001002 


104103 


000437 


012737 


103001 


104020 


032777 
001402 


104104 


000406 


004132 001110 


175130 
177777 
601 ¢68 
000200 
000500 
012446 


040000 175062 


J. 4 
xt ee 3 13:56 PAGE 172-2 
Tl2 TEST THE OVERRUN & ERROR BITS = RBUF 14 


$60: 


$61: 


$62: 


BIT 
BNE 


ERROR 


MOV 


IF #ORERR NOTSETIN @RBUF THEN 


#ORERR ,@RBUF 
$60 
; READING RBUF CLEARED ORERR. 
ERRHRD 103 
103 
SKIP REST OF TEST 
TS113 ssEXIT THIS TEST 
ENDIF 
ENDSUB 
BGNSUB 
#64$,SLPERR 


ioe teat Thee hg SHOULD ENABLE ERROR TO BE CLEARED 
NOW SEE IF THEY CLEAR WHEN ANOTHER CHAR. IS RECEIVED 


SEND A_CHARACTER AROUND. 
LET aTBUF :B= #0 


aTBuF 
CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
R5,-(SP) 
#sét. =(R5) 
RCSR,-(R5) 

SREURDONE. =(R5) 
#500,-(R5) 
PC, TIMER 
(SP)+,R5 

:DI1D IT SET IN TIME? 
a IF ERROR’ THEN 

:RCVRDONE DID NOT SET IN RCSR 

ERRHRD 20 
20 , 

ENDIF 
IF #ORERR SETIN @RBUF THEN 

#ORERR ,ARBUF 

sORERR DID NOT CLEAR IN RBUF 

ERRHRD 104 
104 

:~AFTER RECEIVING ANOTHER CHAR 

i SKIP AROUND REST 
TST13 scEXIT THIS TEST 

ENDIF 


SEQ 0048 


eee 


K_ 4 
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CNDLAA.PIT = 23=DEC=82 13:55 


032777 100000 175046 BIT #ERROR , @RBUF 
001401 BEQ $63 


104105 ERROR 105 


$63: 


steer Ee Eee 


SSSSS Sa FEE 


000400 BR TST13 


7 
TEST THE OVERRUN & ERROR BITS = RBUF 14 


IF WERROR SETIN @RBUF THEN 


ERROR DID NOT CLEAR IN RBUF 
ERRHRD 105 
ENDIF 
ENDSUB 
EXIT 
ssEXIT THIS TEST 


SEQ 0049 


CNDLAAO DLV11-J_TEST 
‘CNDLAA.P11 23-DEC-82 13:55 


9515 
9516 
928 
(3) 
| ¢@) 
|) 
(4) 
| (4) 
(4) 
(3) 
(2) 004222 
| (2) 
| (1) 004224 
@) 004232 
| 9533 
9534 004240 
| (4) 004240 
9535 
9536 
9537 00424 
of 004244 
9539 004250 
(7) 004250 
9540 
9541 004254 
9542 . 0042 
9543. 004264 
(5) 004264 
9544 
9545 . 004272 
(3) © 004272 
(7) 004274 
(6) 004300 
(5) 004304 
(4) 004310 
(3) 004314 
(3) 004320 
9546 
9547 
9548 004322 
(7) 004322 
9549 
9550 
9551 004330 
9552 
9553 
9554 004342 
(7) 004342 
9555 
9556 004350 
(3) 004350 
(7) 004352 
(6) 004356 
(5) 004362 
(4) 004366 


013703 


062703 


012723 
012713 


012737 
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000010 
000013 


013616 


001256 


000004 


013610 
000300 


004272 


177777 
001264 
000200 
000500 
012446 


000100 


000100 


177777 


001160 
001200 


001110 


174734 


174714 


L 
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T12 TEST THE OVERRUN & ERROR BITS = RBUF 14 SEQ 0050 


PRRRAReeAeeeeeeeAeeeeeeeeeeeeeeteaeeKeeeeeeeneeteeeeeeeeeeeeeres 
SATEST 13 TRANSMITTER INTERRUPT LOGIC TEST 

;¢ iy THIS IS 4 SEPARATE TESTS 

;* ) DOES Harare aad Be INTERRUPT LOGIC WORK 

;* 8) AT PRIORITY OF 0 

3 C) AND ONLY ONCE 

; D) BUT NOT WITH INTERRUPT ENABLE CLEAR 

PEC istrict i iti tii litiiaiiitiititiitilitiriiiiiiy, 
S 


T13: SCOPE 
MOV #10 
MOV #13 


t 
$ Aas 10_ ITERATIONS 
N SET TEST NUMBER i. a MAIL BOX 

R INTERRUPT OCCURED* FLAG 


LET inteiAG : #0 
CLR INTFLAG 


GET VECTOR ADDRESS 
LET R3 := DLVEC 


sFOR THE TRANSMITTER 
LET R3 := R3 + #4 


SET VECTOR TO POINT TO TRANS.SRV AT PRI 


MOV DLVEC ,R3 


ADD #4 ,R3 


MOV #INTSRV, (R3)+ 
MOV #PR6, (RS) 


MOV #64$ ,SLPERR 


BGNSUB 


3 MAKE SURE THAT TRANSMITTER READY IS SET 
Mov sRS. =(SP) CALL TIMER IN <#500,#XMITRDY, TCSR,#SET> 


MOV TCSR,-(R5) j 
MOV #XMITRDY,-(R5) 
0,-(R5) 


MOV 
JSR PC, TIMER 
MOV (SP)+,R5 


:CLEAR INTERRUPT ENABLE 
LET @TCSR := @TCSR CLR.BY #XMITIE 
BIC #XMITIE,@TCSR 


SET IT T0 0 
SETPRI #PRO 


:NOW SET I.E. BIT 
LET @TCSR := aTCSR SET.BY #XMITIE 
BIS #XMITIE ,aTCSR ; 


Tyee CALL TIMER IN <#500,#1,#INTFLAG,#SET> 


#SET,-(R5) 
AINTFLAG, =(R5) 
MOV 4560. Ras) 


"OC ler ce 


4 
| CNDLAAO DLV11-)_TEST MACY11 30(1046) m+ oom “82 13:56 PAGE 173-1 


CNDLAA.P11 23-DEC=82 13:55 TRANSMITTER INTERRUPT LOGIC TEST SEQ 0051 
(3) 004372 004737 012446 JSR PC, TIMER 
me} 004376 012605 MOV (SP)+,R5 
9558 :DID IT SET IN TIME? 
9559 004400 IF .ERROR’ THEN 
(6) 004400 103001 BCC $64 
9560 : INTERRUPT DID NOT OCCUR 
9561 004402 ERRHRD 106 
(1) 004402 104106 ERROR 106 
004404 ENDIF 
mo) 004404 $64: 
9564 :LET POSSIBLE 2°ND INTERR OCCUR 
9565 004404 WAITMS 500. 
(4) 004404 010546 MOV -(SP) 
(5) 004406 012745 000764 MOV R250 =(R5) 
(4) 004412 004737 012620 JSR PC,WAIT 
2) 004416 012605 MOV (SP)+,R5 
9567 :DID EXACTLY 1 INTERRUPT OCCUR 
9568 004420 IF INTFLAG GT #1 THEN 
(6) 004420 023727 013616 000001 CMP INTFLAG, #1 
(9) 004426 003401 BLE $65 
9569 s TRANSMITTER INTERRUPTED TWICE 
9570 004430 ERRHRD 107 
(1) 004430 104107 ERROR 107 
9571 004432 ENDIF 
(4) 004452 $65: 
9572 00443 ENDSUB 
9573 s INTERRUPT WITHOUT INTERRUPT ENABLE SET 
9574 004432 BGNSUB 
(5) 004432 012737 004440 001110 MOV #64$,S$LPERR 
9575 sCLEAR INTERRUPT ENABLE 
9576 004440 LET @TCSR := @TCSR CLR.BY #XMITIE 
(7) 004440 042777 000100 174616 BIC #XMITIE ,aTCSR 
9577 :CLEAR ‘INTERRUPT OCCURED’ FLAG 
9578 004446 LET INTFLAG := #0 
(4) 004446 005037 013616 CLR INTFLAG 
9579 ZNO INTERRUPTS SHOULD OCCUR, PSW STILL AT 0. 
9580 ‘DARE IT TO HAPPEN 
9581 004452 LET aTBUF := #0 
(4) 004452 005077 174610 CLR aTBUF 
9582 :SEE IF INT FLAG EVER SETS 
9583 004456 CALL TIMER IN <#1000,#1,#INTFLAG,#SET> 
(3) 004456 010546 MOV R5,-(SP) 
(7) 004460 012745 177777 MOV #SET,-(R5) 
(6) 004464 012745 013616 MOV MINTFLAG,-(R5) 
(5) 004470 012745 000001 MOV #1,-(R5 
(4) 004474 012745 001000 MOV #1000,-(R5) 
(3) 004500 004737 012446 JSR PC. pt THER 
(3) 004504 012605 MOV +,R5 
9584 :DID IT SET DURING TIMER? 
9585 . 004506 103401 BCS 1$ [BR IF NO 
9586 ° gINTERR, STILL OCCURED WITH IE DISABLED 
9587 004510 ERRH 
(1) 004510 104110 ERROR 110 


+ --  Y 


43 


CNDLAAO DLV11-)_TEST MACY11 30(1046) 
CNDLAA.P i “33-pec-82 13:55 


9588 004512 


1$: 





——s 





N_ 4 
“DEC-82 13:56 PAGE 173-2 
TRANSMITTER INTERRUPT LOGIC TEST 


SEQ 0052 
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000004 


012737 
012737 


032737 
001404 
023727 
001002 


000137 


105077 
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000010 
000014 


000020 
013604 


005046 


001256 
013610 
000300 
004602 


013616 


000100 


174434 


177777 


012446 


001160 
001200 


001220 
000001 


001110 


174444 


23-DEC- 82 13:56 PAGE 17 
113 TRANSMITTER INTERRUPT LOGIC TEST SEQ 0053 
real 14 RECEIVER IATERRST Lecic fs. ——CsC=C‘i=C‘=S™S™SSS 
tS TEST 14 RECEIVER INTERRUPT LOGIC TEST 
3* THIS TEST COVERS ALL OF THE RECEIVER 
* SIDE OF THE INTERRUPT LOGIC IN 
3* CHARACTER MODE. 
FERRARA REEEERAEAEEREREEE EEE EEEAAEE EERE EREEEERREREREEEEEERAEEEE 
TST14: SCOPE 
MOV #10, $TIMES 3:00 10 ITERATIONS 
MOV #14, $TESTN ET TEST NUMBER IN APT MAIL BOX 
IF #WRAP NOTSETIN $USWR OR CONSOL EQ #TRUE THEN 
BIT AWRAP ,SUSWR 
CMP CONSOL , #TRUE 
BNE $67 
$66: 
JMP TST15 : EXIT TEST 
ENDIF 
$67: 
:CLEAR INTERRUPT OCCURED FLAG 
ET UP RECEIVER INTER. VECTOR 
SETVEC pivec, DINTERY APR6 
MOV R1,-(SP) 
MOV DLVEC,R1 
MOV MINTSRV, (R1)+ 
MOV #PR6, (RI) 
MOV (SP)+,R1 
:PRIORITY 0 AND MULTIPLE INTERRUPT TEST.-RCVRIE 
BGNSUB 
MOV #64$,$LPERR 
LET INTFLAG := #0 
CLR INTFLAG 
sCLEAR INTERRUPTS 
LET @RCSR := ARCSR CLR.BY #RCVRIE 
BIC #RCVRIE,ARCSR 
; CHANGE PRIORITY 
SETPRI #PRO 
:SEND A CHARACTER 
LET @TBUF :B= #0 
CLRB = aTBUF 
“WAIT A MAXIMUM 
:0F 50 MSEC FOR 
*XMIT RDY TO SET_IN TCSR 
, CALL TIMER IN 7500, #RCVRDONE , TCSR, #SET> 
MOV R5,-(SP) 
MOV #seT. =(R5) 
MOV TCSR,=(R5) 
MOV pReVRDONE -(R5) 
MOV #500,-(R5) 
JSR TIMER 
MOV (SP)+,R5 


~ ie 


c----— —--- a ee ee + ee - - —--= -+—-- 


C 
[CNDLAAO DLV11-J_TEST macyit 30(1046) mt eae | 13:56 PAGE 174-1 


CNDLAA.P11 33-bEC-82 13:55 RECEIVER INTERRUPT LOGIC TEST 
| 9628 :SET INTERRUPT ENABLE 
| 9629 004662 LET @RCSR := A@RCSR SET.BY #RCVRIE 
(7) 004662 052777 000100 174370 BIS #RCVRIE,ARCSR 
ts LET IT COME IN. 
| 9632 004670 CALL TIMER IN <#500,41,#INTFLAG,#SET> 
(3) 004670 010546 MOV R5,=(SP) 
| (7) 004672 012745 177777 MOV #SET,-(R5) 
' (6) 004676 012745 013616 MOV #INTFLAG,=(R5) 
| (5) 004702 012745 000001 MOV #1,-(R5) 
(4) 004706 012745 000500 MOV #500,-(R5) 
(3) 004712 004737 012446 JSR PC, TIMER 
me) 004716 012605 MOV (SP)+,R5 
9634 DID IT SET IN TIME? 
9635 004720 IF ERROR’ THEN 
(6) 004720 103001 BCC $70 
9636 s INTERRUPT DID NOT OCCUR 
9637 004722 ERRHRD 111 
(1) 004722 104111 ERROR 111 
9638 004724 ENDIF 
(4) 004724 $70: 
9639 sLET POSSIBLE 2°ND INTERR OCCUR 
9640 004724 WAITMS 500 
(4) 004724 010546 MOV -(SP) 
(5) 004726 012745 000500 MOV #300; =(R5) 
(4) 004732 004737 012620 JSR WAIT 
off? 004736 012605 MOV reehel RS 
9642 sEXACTLY 1 INTERRUPT? 
9643 004740 IF INTFLAG GT #1 THEN 
(6) 004740 023727 013616 000001 CMP INTFLAG, #1 
9604 ar ey me - RECEIVER INTERRUPTED TWICE 
3 W 
9645 004750 ERRHRD 112 
(1) 004750 104112 ERROR 112 
9646 004752 ENDIF 
(4) 004752 $71: 
9647 004752 ENDSUB 
9648 
9649 
9650 
9651 
9652 
3627 INTERRUPT WITHOUT IE SET 
9655 004752 BGNSUB 
92) 004752 012737 004760 001110 MOV #64$,$LPERR 
9657 :CLEAR INTERRUPT 
9658 004760 LET @RCSR := ARCSR CLR.BY #RCVRIE 
of) 004760 042777 000100 174272 BIC #RCVRIE,ARCSR {CLEAR INTERRUPT FLAG 
9660 004766 LET INTFLAG := #0 
(4) 004766 005037 013616 CLR INTFLAG 
9661 3; SEND A CHARACTER 


SEQ 0054 


eae 


dD. 5 
\CNDLAAO DLV11-J_TEST MACY11 30(1046) mt ae 13:56 PAGE 174-2 


‘CNDLAA.P1T = 23=DEC=82 13:55 RECEIVER INTERRUPT LOGIC TEST SEQ 0055 
| 9662 004772 LET aTBUF :B= #0 
| (4) 004772 105077 174270 CLRB = aTBUF 
| 9663 : DARE IT 
9665 004776 CALI TIMER IN <#500,41,#INTFLAG,#CLR> 
(3) 004776 010546 MOV R5,-(SP) 
(7) 005000 012745 000000 MOV #CLR,-(R5) 
(6) 005004 012745 013616 MOV #INTFLAG,=(R5) 
(5) 005010 012745 000001 MOV #1,-(R5 
(4) 005014 012745 000500 MOV #500,-(R5) 
(3) 005020 004737 012446 JSR PC. TIMER 
(3) 005024 012605 MOV (SP)+,R5 
9666 :DID IT CLEAR IN TIME? 
9667 005026 IF ERROR’ THEN 
(6) 005026 103001 BCC $72 
9668 sINTERR STILL OCCURED WITH IE DISABLED 
9669 005030 ERRHRD 113 
(1) 005030 104113 ERROR 113 
9670 005032 ENDIF 
(4) 005032 $72: ' 
9671 005032 ENDSUB 
9672 005032 SETPRI #PR6 sRAISE CPU PRIORITY 
9673 sCLEAR THE WORLD 
9674 005044 BRESET 
oft 005044 000005 RESET 


‘CNDLAAO DLV11-J_ TEST 
‘CNDLAA.P11 -23-DEC-82 


005046 000004 


005050 012737 
005056 012737 


064 
(6) 005064 032737 
001404 
(6) 005074 023727 
(9) Bp ibe 001001 


(6) 0051 
90 
9691 005104 
(3) 005104 000506 
9692 005106 
(4) 005106 
9693 005106 
(1) 005106 000005 
9694 
9695 005110 
(4) 005110 005002 
(S$) 005112 000401 
(4) 005114 
(8) 005114 005202 
(5) 005116 
(5) 005116 020227 
(7) 005122 003077 
9696 
9697 
9698 
9699 
9700 005124 
(3) 005124 010546 
(7) 005126 012745 
(6) 005132 013745 
(5) 005136 012745 
(4) 005142 012745 
(3) 005146 737 
3) 005152 012605 
9701 005154 


515 
005156 104123 
005160 000460 


110277 


MAC 


ACY1 
13:55 


000001 
000015 


000020 
013604 


000377 


177777 
00 


0 
012446 


174100 


1 30(1046) 


001160 
001200 


001220 
000001 


fz oF 13:56 


PAGE 175 
RECEIVER INTERRUPT LOGIC TEST SEQ 0056 


SERA AEEEAERAEEEEEEE AEE EEE EEEEEEREERAEREEEEEEEEERERRREREKKEEE 


tSTEST 15 TEST DATA WRAP AROUND: FLAG MODE 
MeRAAASLALASLALELALALLALALALLALLALLELE LEC EELS ERLE ERE RR CER ERR RE RRA REE AS SY 
T8115: SCOPE 
MOV #1 STIMES ¢3D0_1_ ITERATION 


$73: 


$74: 


$76: 
$75: 


$100: 


MOV #15, $TESTN 
BIT #WRAP,SUSWR 
$73 


33SET TEST NUMBER IN APT MAIL BOX 
IF #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN 


BEQ 
CMP CONSOL , #TRUE 
BNE $74 
yen TEST WITHOUT A WRAP 
BR TST16 zzEXIT THIS TEST 
ENDIF 
BRESET 
RESET 
NARY COUNT PATTERN 
INCR R2 iRom #0 TO #377 BY #1 
CLR R2 
R $75 
INC R2 
CMP R2,#377 
BGT $77 
MAKE SURE IT’S READY 
CALL’ TIMER IN <#500, #XMITRDY, TCSR,#SET> 
V R5,-(SP) 
MOV #SET,-(R5) 
MOV TCSR, =( 
MOV #XMITRDY,-(R5) 
MOV #500,-(R5 
JSR PC, TIMER 
MOV (SP)+,R5 
IF .ERROR THEN 
BCC $100 
: TRANSMITTER NEVER BECAME READY 
ERRHRD 123 
ERROR 123 
EXIT 
BR TST16 s:EXIT THIS TEST 
ENDIF 


START IT ON ITS WAY 
LET @TBUF :B= R2 
MOVE R2,aTBUF 


CNDLAAO DLVI1-J 
CNDLAA.P11 23-DEC-82 


O-WWS 


~ Uw BW Re ewe ww 
MAMMA 


sessssssses 
Baeanseexags 


005220 


| 
| 
| 
| 
9718 005224 
9722 005236 
0052 
005240 
(4) 005240 


9727 005240 


(4) 005266 
(3) 005270 


9736 005270 
(1) 005270 


ee ee ee ee eS 


TEST 


017703 
032703 
001401 


104200 


020302 
001415 


032737 
001006 


020227 
002002 
104117 
000416 
000402 


104017 


012446 


174032 


100000 


000001 


000200 


1 30(1046) 


001220 


F%. 
RS ie 13:56 PAGE 175-1 


$101: 


$102: 


$105: 


$104: 


TEST DATA WRAP AROUND: FLAG MODE SEQ 0057 
NOW WAIT FOR RECIEVER DONE 
tALL TIMER IN <#500, #RCVRDONE ,RCSR,#SET> 
MOV RS,=(SP) 
MOV #SET,=(R5) 
MOV RCSR,=(R5) 
MOV #RCVRDONE ,=(R5) 
MOV #500,-(R55 
JSR TIMER 
MOV (SP)+,R5 
IF ERROR THEN 
BCC $101 
ERRHRD 124 
ERROR 124 
j RECIEVER NEVER BECAME READY 
BR TST16 ssEXIT THIS TEST 
ENDIF 
ETRIEVE 
LET ast = @RBUF 
MOV @RBUF ,R3 
:CHECK FOR ERROR DURING TRANSFER 
IF #ERROR SETIN R3 THE 
BIT #ERROR,R3 
BEQ $102 
sERROR BIT SET IN HIGH BYTE OF RBUF 
ERRHRD 200 
ERROR 200 
ENDIF 
sCOMPARE DATA 
IF R3 NE R2 THEN 
CMP R3,R2 
BEQ $103 
IF #BITO NOTSETIN SUSWR THEN 
BIT #B1T0,$USWR 
BNE $104 
IF R2 LT #200 THEN 
CMP R2,#200 
BGE $105 
:DATA COMPARE ERR IN 7 BIT WORD 
ERRHRD 117 
ERROR 117 ‘ 
EXIT 
BR TST16 s:EXIT THIS TEST 
ENDIF 
ELSE 
BR $106 
:DATA COMP ERR IN 8 BIT WORD 
ERRHRD 17 
ERROR 17 


costo 


CNDLAAO DLV11-J_TEST 


MACY11 30(1046) 


CNDLAA.P11 23-DEC=82 13:55 


, -@) 


(4) 005320 000675 


005272 
005272 000413 
9738 905274 
(4) 005274 
| 9739 005274 
| (4) 005276 000411 
(3) 005276 
(7) 005276 032737 
(10) 005304 001005 
| (7), 005306 020207 
| (10) 005312 003402 
| 9740 
| 9761 
9742 005314 
| “¢1) 005314 104022 
9743 005316 
(3) 005316 000401 
9744 005320 
(4) 005320 
(4) 005320 
9745 005320 
| 


000001 
000177 


001220 


5 
mf aie | 13:56 PAGE 175-2 


$106: 


$103: 


TEST DATA WRAP AROUND: FLAG MODE SEQ 0058 
EXIT 
BR TST16 sEXIT THIS TEST 
ENDIF 
ELSE IF #BITO NOTSETIN $USWR AND R2 GT #177 THEN 
BR $107 
BIT #81T0,$USWR 
BNE 110 
CMP R2,#177 
BLE $110 
:GETTING 8 BITS ON 7 BIT XMIT 
“MAKE SURE $USWR SETUP CORRECTLY. 
ERRHRD 22 
ERROR 22 
EXIT 
BR TST16 rEXIT THIS TEST 
ENDIF 
ENDINC ;R2 
BR $76 


‘CNDLAAO DLV11-J_ TEST 
CNDLAA.P11 23-DEC=82 13:55 


013701 
012721 
012721 


012721 
012711 


005037 
005037 


MACY11 30(1046) 


000001 
000016 


000020 
013604 


005772 


001256 
005664 
000300 


005626 
000300 


005622 
005662 


001160 
001200 


001220 
000001 


eg-DEC~8e 13:56 PAGE 176 
T15 TEST DATA WRAP AROUND: FLAG MODE 


FRAAAAAAAAAEAAEAAEREEEEEREREREREEEEAAREREEEEEEEERAEEEREREEEEEEEEEE 


TEST DATA WRAP AROUND: IW"ERRUPT MODE 


SAREE AAEAAAAAEAAEAEREEAAAEAAAETAAEAAEAAAERERERAERERERARERAEEEEREE 


$116: SCOPE 


TATE 


ST 16 


$111: 


$112: 


SETPRI #PRO 
MOV 
MOV 


MOV 


MOV 
MOV 


CLR 
CLR 


#1,STIMES 
#16, $TESTN 


#WRAP ,SUSWR 
$111 
CONSOL ,#TRUE 
$112 


TST17 


RECIEVER AT FULL SPEED 
THE ABILITY OF THE 


33D0_1_ITERATION 
33SET is 7 NUMBER IN APT MAIL 


SEQ 0059 


BOX 
F #WRAP NOTSETIN SUSWR OR CONSOL EQ #TRUE THEN 


ENDI 


gras’ TEST 


THIS TEST WILL RUN BOTH TRANSMITTER AND 


TESTING 


MODULE 
TO HANDLE INTERRUPTS FROM BOTH SIDES AT ONCE. 


{DOUBLE yeceatin IS NOT FULLY gt BECAUSE OF 
ATI *BREAK’ FROM APT 


APT CONSIDERA 


ONS. 
ZCAUSES OVERRUN ERRORS. THEREFORE TRANSMIT INT 


RIS 
ENABLED ONLY AFTER THE RECVR HAS OBTAINED THE LAST WORD 


THIS TEST WILL TRANSFER A MAXIMUM OF 400(8) 
MODULE, BUT IF 


; CHARACTERS THROUGH THE 


AN ERROR 
; IS DETECTED BY THE TEST A PREMATURE SHUTDOWN OCCURS. 
eae | PRIORITY 


DLVEC,R1 
#REC, (R1)+ 


#PR6,(R1)+ 


#TRAN, (R1)+ 
#PR6,(R1) 


ERRCNT 
DATA 


LET 
LET 
LET 


LET 
LET 


LET 
LET 


R1 := DLV 


eRCVR VEC 
(R1)+ := #REC 


(R1)+ := #PR6 


POINT TO ee VECTOR 
SET IT UP ALSO 


3GET —_—- ADDRESS 


TOR 


= 
(R1)+ := #TRAN 


CLEAR ERROR COUNTER 


(R1) := #PR6 
ERRCNT := #0 
DATA := #0 


zXMIT DATA 


Se -—— oe 2 eee 


- 
bm anew DLV11- pres macyyt 30(1046) mt eae | 13:56 PAGE 176-1 


NDLAA.P11 =DEC=82 1 116 TEST DATA WRAP AROUND: INTERRUPT MODE SEQ 0060 
| 9792 005638 IF #B1TO NOTSETIN SUSWR THEN 
| (6) »=005632 +032737 000001 001220 BIT #8170, SUSWR 
(9) 005440 001004 BNE $113 
| 9793 00544 LET NUMBER := #200 
| 4) 005442 012737 000200 005624 MOV #200,NUMBER 
9794 005450 ELSE 
| (4) 005450 000403 BR $114 
(3) 00545 $113: 
9795 00545 LET NUMBER := #400 
(4) 005452 012737 000400 005624 MOV #400,NUMBER 
796 0054 ENDIF 
mS} 005460 $114: 
9798 005460 BRESET ;SET UP ALL REGISTERS 
mi) 005460 000005 RESET 
9800 :SET 1.£. IN TRANSMITTER 
9801 005462 LET aTCSR := @TCSR SET.BY #XMITIE 
(7) 005462 052777 000100 173574 BIS #XMITIE ,aTCSR 
9802 zAND RECEIVER 
9803 005470 LET @RCSR := A@RCSR SET.BY #RCVRIE 
off 005470 052777 000100 173562 BIS #RCVRIE,@RCSR 
9805 
9806 :NOW We WAIT 
9807 005476 REPE 
(3) 005476 $115: 
9808 005476 UNTIL DATA EQ NUMBER OR ERRCNT GT #0 
(4) 005476 023737 005662 005624 CMP DATA, NUMBER 
(6) 005504 001403 BEQ $116 
(4) 005506 005737 005622 TST ERRCNT 
(7) 005512 003771 BLE $115 
(4) 005514 $116: 
9809 
9810 :NOW LETS CHECK. 
9811 ;TURN OFF ALL INTR ENABLE 
9812 005514 LET aTCSR := aTCSR CLR.BY #XMITIE 
(7) 005514 042777 000100 173542 BIC #XMITIE ,aTCSR 
9813 005522 LET @RCSR := ARCSR CLR.BY #RCVRIE 
(7) 005522 042777 000100 173530 BIC #RCVRIE ,ARCSR 
9814 005530 IF ERRCNT NE #0 THEN 
(6) 005530 005737 005622 TST ERRCNT 
(9) 005534 001431 BEQ $117 
9815 005536 | IF #ERROR SETIN RHLD THEN 
(6) 005536 032737 100000 005770 BIT #ERROR,RHLD 
(9) 005544 001424 BEQ $120 * 
9816 005546 IF #ORERR SETIN RHLD THEN 
(6) 005546 032737 040000 005770 BIT #ORERR,RHLD 
(9) 005554 001402 BEO $121 
9817 sOVERRUN ERROR 
9818 005556 ERRHRD 220 
(1) 005556 104220 ERROR 220 
9819 0(5560 ELSE IF #FRERR SETIN RHLD THEN 
(4) 005560 000415 BR $122 
(3) 005562 $121: 
(7) 005562 032737 020000 005770 BIT #FRERR,RHLD 


rc 


CNDLAAO DLV11-J_ TEST macy 30(1046) 
CNDLAA.P11 23-DEC-82 13:5 


(10) 005570 001402 


005572 104221 
000407 
4 tte 010000 005770 
104222 
005610 000401 


005612 104024 


005614 000401 


005616 104120 


005620 000464 


005622 000000 
005624 000000 


fae te 13:56 PAGE 176-2 


TEST DATA WRAP AROUND: INTERRUPT MODE 


BEQ 
ERROR 
BR 
$123: 
BIT 
BEQ 
ERROR 
BR 
$125: 
ERROR 
$126: 
$124: 
$122: 
BR 
$120: 
ERROR 
$127: 
$117 
BR 
ERRCNT: 0 
NUMBER 


$123 


221 

$124 
#PERR,RHLD 
$125 


222 
$126 


24 


$127 


120 


TST17 


EL 


EL 


SEQ 0061 


zFRAMING ERROR 
ERRHRD 221 


SE IF #PERR SETIN RHLD THEN 


:PARITY ERROR 
ERRHRD 222 


SE 


| UNKNOWN ERROR 
ERRHRD 24 


ENDIF 


ELSE 


ENDIF 
ENDIF 


EXIT 
3csEXIT THIS TEST 


:DATA COMPARE ERROR 
ERRHRD 120 


SKIP OVER SUPPORT ROUTINES & STORAGE 


mn i ee 


CNDLAAO DLV11-J_TEST 


CNDLAA.P11 23-DEC-82 


(6) 005626 023737 
001406 
(6) 005636 005737 
001003 


(4) 005644 013777 


N 
S 
w 
o 
w 
™N 
g 
~ 
N 
N“N 
N 


005237 


740 023737 
746 001004 





MACY1 
13:55 


005662 
005622 


005662 


000100 


173372 


100000 
005770 


005624 
000100 
005622 


005662 
005662 


1 30(1046) 


005624 


173414 


173404 


005770 


005770 
005662 


005662 
173332 


005624 


“ae 13:56 PAGE 177. 
TEST DATA WRAP AROUND: INTERRUPT MODE 


FARRAR AEREAAAAA ERE EAE TEEAAEERAAAAEAAARAARAAAEEEAAAHHAEARAENEE 


; TRANSMIT INTERRUPT HANDLER 


PITTITITITIITIIIT ITI IT TIT TiTiitiitiitit iti titi iii iii titi iii it 


BGNSRV TRAN 


TRAN: 
IF DATA NE NUMBER AND ERRCNT EQ #0 THEN 
CMP DATA, NUMBER 
BEQ $130 
TST ERRCNT 
BNE $130 
;SHIP OUT WORD 
LET @TBUF := DATA 
MOV DATA, aTBUF 
ENDIF 
$130: 
sSTOP INTERR, NOT EXER DOUBL BUFFER 
LET @TCSR := @TCSR CLR.BY #XxMITIE 
BIC #XMITIE,aTCSR 
ENDSRV 
RTI 
DATA: 0 


FFARR ERAREEERAAAAEE EEEEEEEEEEAEEEEAERREERAEEEEEKEREEREREREREEKE 


RECEIVER INTERRUPT HANDLER 


FERRARA RAEAAEREAAAEEEAAEEEEAEAAAAAAAAAAAAERERERAREEAAREEREEEEEEE 


BGNSRV REC 
REC: 
3GET CHAR 
LET RHLD := @RBUF 
MOV @RBUF ,RHLD 
sCHECK ERR 
iF #ERROR oF TIN RHLD OR RHLD NE DATA THEN 
BIT #ERROR,RHLD 
BNE 
CMP RHLD DATA 
BEQ $132 
$131: 
STOP ALL INTERR PROC & GET OUT 
LET DATA := NUMBER 
MOV NUMBER ,DATA 
LET @RCSR := @RCSR CLR.BY #RCVRIE 
BIC #RCVRIE ,ARCSR 
LET ERRCNT := ERRCNT + #1 
INC ERRCNT 
ELSE 
BR $133 
$132: 
LET DATA := DATA + #1 
INC DATA 
IF DATA EQ NUMBER THEN 
CMP DATA, NUMBER 
BNE $134 


LET @RCSR := @RCSR CLR.BY #RCVRIE 


SEQ 0062 


_—— 


————— 


_CNDLAAO DLV11 
| CNDLAA.P11 


(7) 


2s 


TEST 
~DEC-82 13: 55 


042777 000100 eos 
000403 


052777 000100 173276 


000002 
000000 


MACY11 30.1046) 


m + a | 13:56 PAGE 17 7751 


116 


$134: 


$135: 
$133: 


RHLD: 


TEST DATA WRAP AROUND: INTERRUPT MODE 
BIC #RCVRIE ,ARCSR 


Ss 

BR $135 hg 

‘GET aTCSR’E="arcsR SET .BY amt 
BIS #XMITIE,@TCSR — 

ENDIF 
ENDIF 
ENDSRV 

RTI 
0 


SEQ 0063 


nn rn a arr eee 


- 





\CNDLAAO DLV11<J TEST  MACY11 301046) pg3-DEC-82 13:56 PAGE 178 
\CNDLAA.P11 33-bEC-82 13:55 116 TEST DATA WRAP AROUND: INTERRUPT MODE SEQ 0064 
| 
| 9910 FERRARA EAEAEEAREREREEE EE AEEREEERAEEEAAEAAEEAEAEEREEEEREEEREEE EEE 
(3) jSTEST 17 TEST BREAK DETECTION LOGIC 
(4) ANSMIT KNOWN CHAR WITH BREAK SET 
(4) fe AND COMPARE RECEIVED WITH 
(4) 8 FRAMING ERROR WILL ALSO BE CHECKED 
(4) 3 IF ERROR BITS ARE ENABLED. 
(3) 2 RAEAEAAEEEAAAEAAEAAEAAEAEEAEEAEEAAAAAAAAAARAAEAAAAAEREAAAEEAREEREEEE 
(2) 005772 000004 t$117: SCOPE 
(1) 005774 012737 000010 001160 MOV #10,$TIMES £200 10 ITERATIONS 
(2) 006002 012737 000017 001200 MOV #17, $TESTN SET TEST NUMBER IN APT MAIL BOX 
9915 ‘BONT DO THIS TEST IF "BREAK" GENERATION 
9916 ENABLED ELSE WILL HALT TO CONSOLE ODT. 
9917 O IF BREAK ‘DETECTION' IS ENABLED. 
9918 006010 ir MWRAP NOTSETIN SUSWR OR #BRK NOTSETIN $USWR THEN 
(6) 006010 032737 000020 001220 BIT #WRAP, SUSWR 
(8) 006016 001404 BEQ $13 
(6) 006020 032737 000010 001220 BIT #BRK , SUSUR 
(9) 006026 001003 BNE $137 
(6) 006030 $136: 
9919 006030 000137 006502 JMP TST20 sEXIT TEST 
9920 006034 ELSE 
(4) 006034 000406 BR $140 
(3) 006036 $137: 
9921 006036 IF CONSOL EQ #TRUE THEN 
(6) 006036 023727 013604 000001 CMP CONSOL , #TRUE 
(9) 006044 001002 BNE $141 
9922 :CAN'T TEST CONSOLE 
9923 006046 000137 006502 JMP TST20 SEXIT TEST 
9924 006052 ENDIF 
(4) 006052 $141: 
9925 006052 ENDIF 
(4) 006052 $140: 
9926 006052 BGNSUB 
> 006052 012737 006060 001110 MOV #64$,S$LPERR 
9928 006060 LET ERRCHK := #0 ; CLEAR ERROR WORD 
(4) 006060 005037 006500 CLR ERRCHK 
9929 :SET BREAK BIT 
9930 006064 LET aTCSR := @TCSR SET.BY #BREAK 
(7) 006064 052777 000001 173172 BIS #BREAK ,aTCSR 
9931 sNON=ZERO CHAR. **° 
9932 006072 LET aTBuF := #125 
(4) 006072 012777 000125 173166 MOV #125, aTBUF 
9933 WAIT FOR DONE 
9934 006100 CALL TIMER IN <#500, #RCVRDONE .RCSR,#SET> 
(3) 006100 010546 MOV RS,=(SP) 
(7) 006102 012745 177777 MOV #SET,~(R5) 
(6) 006106 013745 001260 MOV R 
(5) 006112 012745 000200 MOV ARCVRDONE ,-(R5) 
(4) 006116 012745 000500 MOV =(R55 
3) 006122 004737 012446 JSR PC, TIMER 
3) 006126 012605 . MOV (SP)+,R5 
35 006130 > IF ERROR THEN 


mc i a nn et re ee 


aan | 
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NDLAA.P11 =DEC-82 1 TEST BREAK DETECTION LOGIC SEQ 0065 
(6) 006130 103001 BCC $142 
99 RECIEVER DONE DID NOT SET 
9937 006132 ERRHRD 115 
(1) 006132 104115 ERROR 115 
9938 0061 ENDIF 
(4) 0061 $142: 
9939 0061 LET RO := @RBUF 
(4) 006134 017700 173122 MoV @RBUF ,RO : 
9940 906140 IFB RO NE #0 THEN 
(6) 140 105700 TST8 =: RO 
(9) 006142 001403 BEQ $143 
9941 BREAK DID NOT EQUAL 0 
9942 006144 LET iencim: := ERRCHK SET.BY #B1TO 
(7) 006144 052737 000001 006500 BIS #B81TO,ERRCHK 
9943 00615 ENDIF 
(4) 00615 $143: 
9944 00615 If #FRERR NOTSETIN RO THEN 
(6) 006152 032700 020000 BIT #FRERR,RO 
(9) 006156 001003 BNE $144 
9945 006160 LET ERRCHK := ERRCHK SET.BY #B1T1 
(7) 006160 052737 000002 006500 BIS #B1T1,ERRCHK 
9946 006166 ENDIF 
(4) 006166 $144: 
7 006166 IF #PARITY SETIN $USWR THEN 
(6) 006166 032737 000002 001220 BIT #PARITY, SUSWR 
(9) 006174 001421 BEQ $145 
8 :0DD PARITY ENABLED 
9 176 IF #EVENODD NOTSETIN $USWR THEN 
(6) 176 032737 000004 001220 BIT #EVENODD , SUSWR 
(9) 006204 001007 BNE $146 
9950 sBREAK SHOULD GENERATE A PARITY ERRO 
9951 006206 IF #PERR NOTSETIN RO THEN 
(6) 006206 032700 010000 BIT #PERR,RO 
(9) 006212 001003 BNE $147 
9952 :NO PAR ERROR WHEN THERE SHOULD 
9953 006214 LET ERRCHK := ERRCHK SET.BY #BI1T2 
(7) 006214 052737 000004 006500 BIS #B1T2,ERRCHK 
9954 00622 ENDIF 
(4) 00622 $147: 
9955 006222 ELSE 
(4) 006222 000406 BR $150 
(3) 0062246 $146: 
9956 006224 IF #PERR SETIN RO THEN 
(6) 006224 032700 010000 BIT #PERR,RO 
(9) 006230 001403 BEQ $151 
9957 006232 LET ERRCNT := ERRCNT SET.BY #BIT3 
(7) 006232 052737 000010 005622 BIS #B1T3,ERRCNT 
9958 006240 ENDIF 
(4) 006240 $151: 
9959 006240 ENDIF 
(4) 006240 $150: 
006240 ENDIF 
off? 006240 $145: 
9962 006240 BRESET ;CLEAN UP 


(1) 006240 000005 RESET 
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9963 006242 032777 170000 173012 BIT #170000, aRBUF 
9964 006250 001401 BEQ 1$ 
9965 006252 104033 ERROR 33 :RESET DID NOT CLEAR ERROR,FR ERR,OR PERR IN RBUF 
9966 006254 1$: 
9968 006254 IF #BITO SETIN ERRCHK THEN 
(6) 006254 032737 000001 006500 BIT #B1T0,ERRCHK 
(9) 006262 001401 BEQ $152 
9969 006264 ERRHRD 121 ;BREAK ERROR 
(1) 006264 104121 ERROR 121 
9970 006266 ENDIF 
(4) 006266 $152: 
9971 006266 IF #BIT1 SETIN ERRCHK THEN 
(6) 006266 032737 000002 006500 BIT #B81T1,ERRCHK 
(9) 006274 001401 BEQ $153 
9972 006276 ERRHRD 122 ; FRAMING ERROR 
(1) 006276 104122 ERROR 122 
9973 006300 ENDIF 
(4) 006300 $153: 
9974 006300 IF #BIT2 SETIN ERRCHK THEN 
(6) 006300 032737 000004 006500 BIT #B81T2,ERRCHK 
(9) 006306 001401 BEQ $154 
9975 006310 ERRHRD 235 
(1) 006310 104235 ERROR 235 
9976 ZNO PARITY ERROR WHEN 
9977 STHERE SHOULD BE 
9978 006312 ENDIF 
(4) 006512 $154: 
9979 00631 IF #BIT3 SETIN ERRCHK THEN 
(6) 006312 032737 000010 006500 BIT #8173, ERRCHK 
(9) 006320 001401 BEQ $155 
9980 006322 ERRHRD 236 
(1) 006322 104236 ERROR 236 
9981 :PARITY ERROR SHOULD NOT HAVE 
9982 SOCCURED WITH EVEN PARITY 
9983 TENABLED AND BREAK SET 
9984 006324 ENDIF 
(4) 006324 $155: 
9985 006324 ENDSUB 
9986 006324 BGNSUB 
(5) 006324 012737 006332 001110 MOV #64$,SLPERR 
9987 SET BREAK BIT 
9988 006332 LET aTCsk := aTCSR SET.BY #BREAK 
92) 006332 052777 000001 172724 BIS #BREAK ,aTCSR 
9990 006340 CALL TIMER IN <#500,#BREAK,TCSR,#SET> 
(3) 006340 010546 MOV R5,-(SP) 
(7) 006342 012745 177777 MOV #SET,-(R5) 
(6) 006346 013745 001264 MOV TCSR,=(R5) 
(5) 006352 012745 000001 MOV REAK,-(R5) 
(4) 006356 012745 000500 MOV #500,-(R5) 
(3) 006362 004737 012446 JSR PC, TIMER 
(3) 006366 012605 MOV (SP)+,R5 


:DID IT SET? 
IF ERROR THEN 


——_———_ 
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(6) 006370 103001 BCC $156 
9994 BREAK DID NOT SET 
9995 006372 ERRHRD 21 
(1) 006372 104021 ERROR 21 
9996 006374 ENDIF 
(4) 006374 $156: 
9997 
9998 -CLEAR BREAK BIT 
9999 00637 LET @TCSR := @TCSR CLR.BY #BREAK 
(7) 006374 042777 000001 172662 BIC #BREAK,aTCSR 
10000 00640 WAITMS 100. 
(4) 006402 010546 MOV RS,=(SP) 
(5) 006404 012745 000144 MOV #100. ,-(R5) 
(4) 006410 004737 012620 JSR PC,WAIT 
(4) 006414 012605 MOV (SP)+,R5 
10001 
10002 
10003 ;READ RBUF TO CLEAR ERRORS & REC DONE 
10004 006416 LET RO := @RBUF 
(4) 006416 017700 172640 MOV @RBUF ,RO 
10005 *SEND CHAR 
10006 006422 LET aTBUF := #125 
(4) 006422 012777 000125 172636 MOV #125, aTBUF 
10007 :WAIT FOR DONE BIT 
10008 006430 CALL TIMER IN <#500,#RCVRDONE ,RCSR,#SET> 
(3) 006430 010546 MOV R5,-(SP) 
(7) 006432 012745 177777 MOV #sét, =(R5) 
(6) 006436 013745 001260 MOV RCSR,-(R5) 
(5) 006442 012745 000200 MOV AREURDONE -(R5) 
(4) 006446 012745 000500 MOV #500,-(R5) 
(3) 006452 004737 012446 JSR PC. TIMER 
(3) 006456 012605 MOV (SP)+,R5 
10009 006460 IF .ERROR THEN 
(6) 006460 103001 BCC $157 
10010 :RECEIVER NEVER CAME READY 
10011 006462 ERRHRD 230 
(1) 006462 104230 ERROR 230 
10012 006464 ENDIF 
(4) 006464 $157: 
10013 
10014 sWAS CHAR AFTER BREAK RECEIVED 
10015 006464 1FB aRBUF NE #125 T 
(6) 006464 127727 172572 000125 CMPB = ARBUF , #125 
10016 utana barnes: ms ~_ CHAR AFTER BREAK NOT RECEIVED CORREC 
: Vv COR TLY 
10017 006474 ERRHRD 231 
(1) 006474 104231 ERROR 231 
10018 006476 ENDIF 
(4) 006476 $160: 
10019 006476 ENDSUB 
10020 006476 EXIT 
(3) 006476 000401 BR TST20 S:EXIT THIS TEST 
10021 006500 000000 ERRCHK: .WORD 0 
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i CNDLAA.P11 23-DEC-82 13:55 TEST BREAK DETECTION LOGIC SEQ 0068 
152 
| sa 11 FERRARA AERAEREEREEEEAEE EE EEE EEE EEEAEE AREER EEEEEEERAEEAREEREEE EE 
| (3) TEST 20 NOT A TEST = SEND BACK TO LOOP 
(3) RARAEEAAAAEEAAEAERAAEEEAEEEAEEAEREEAAAEKEAAEEAEEEEEAEEREREEEEEEEEEE 
| (2) 006502 000004 +8120: SCOPE 
| (1) 006504 012737 000001 001160 MOV #1,STIMES 32D0 1 ITERATION 
10034 006512 ’ IF #BIT12 SETIN @SWR THEN 
(6) 006512 032777 010000 172420 BIT #B1T12,aSWR 
(9) 006520 001513 BEQ $161 
10035 006522 IF PHASE2 EQ #TRUE THEN 
(6) 006522 023727 014166 000001 CMP PHASE2 ,# TRUE 
(9) 006530 001021 BNE $162 
10036 006532 TYPTXT <<CRLF>/ ** PHASE 2 SUMMARY **/<CRLF>> 
10037 006572 ELSE 
(4) 006572 000425 BR $163 
(3) 0065 $162: 
10038 006574 IF PICNT EQ #0 THEN 
(6) 006574 005737 014170 TST P1CNT 
(9) 006600 001022 BNE 164 
10039 006602 TYPTXT <<CRLF>/ ** PHASE 1 SUMMARY **/<CRLF>> 
10040 LET PICNT := PICNT + #1 
(7) 006642 005237 014170 INC PICNT 
10041 006646 ENDIF 
(4) 006646 $164: 
10042 006646 ENDIF 
(4) 006646 $163: 
10043 006646 TYPTXT <*#CSR: *> 
10044 006662 TYPOCT DLADD 
10045 006670 TYPTXT <*,VECTOR: *> 
10046 006710 TYPOCT DLVEC 
10047 006716 TYPTXT <#, ERRORS: *> 
10048 006736 TYPDEC S$ERTTL 
10049 006744 104401 001171 TYPE -SCRLF 
10050 006750 ENDIF 
(4) 006750 $161: 
10051 006750 005037 001112 CLR SERTTL 3; RESET FOR NEXT DEVICE/PASS 
10052 006754 IF PHASE2 EQ #TRUE THEN 
(6) 006754 023727 014166 000001 CMP PHASE2 ,# TRUE 
(9) 006762 001004 BNE $165 
10053 006764 LET PHASE2 := #0 
(4) 006764 005037 014166 CLR PHASE2 
10054 006770 LET SUNIT := SUNIT + #1 
(7) 006770 005237 001206 INC SUNIT 
10055 006774 ENDIF 
(4) 006774 $165: 
10056 006774 000137 001732 JMP LOOP ; BACK UP TO THE BEGINNING 
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8 
NOT A TEST = SEND BACK TO LOOP SEQ 0069 


9 
10060 007000 MODTST: 


+ 10070 eee ge ae cee Geen dient aaaaaeme eateeree 


| 

| 

| 

| @) :STEST 21 TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 
| I SW ENABLED ON AL 


SEE IF THEY INTERRUPTED IN THE ASSIGNED SEQUENCE. 


g PARA AAAA AAA AAAAAAEE AES E AAA AAAAARAAAEERAEEEAEAEAAAE NEARER ANNEE 


007000 000004 T21: SCOPE 


012737 000001 001160 MOV #1,$TIMES 3:D0_ 1_ITERATION 
007010 012737 000021 001200 MOV #21,$TESTN 33SET TEST NUMBER IN APT MAIL BOX 


ne: Porare 


i 


ann AA 
CaN sVSevye 
“ 
oS 
oO 
™m 


CLEAR OUT INTERRUPT TABLE 

007016 LET RO := #INTRTABLE 

( 007016 012700 007744 MOV #INTRTABLE ,RO 
0079 007022 REPEAT 

(3) 007022 $166: 
0080 007022 LET (RO)+ := #0 

(4) 007022 005020 CLR (RO)+ 
0081 007024 UNTIL RO EQ #TABEND 

(3) 007024 020027 007764 cMP RO, #TABEND 

(6) 007030 001374 BNE $166 


10083 SET PRIORITY TO 6 
10084 007032 SETPRI #PR6 


10086 sSET UP ALL INTERRUPT VECTORS 
10087 007044 LET RO := DLVEC 
(4) 007044 013700 001256 MOV DLVEC,RO 
10088 007050 LET R1 := #RCVROSRV 
(4) 007050 012701 007424 MOV #RCVROSRV,R1 
10089 007054 REPEAT 
(3) 007054 $167: 
10090 007054 LET (RO)+ := R1 
(4) 007054 010120 MOV R1,(RO)+ 
10091 007056 | LET (RO)+ := #PR6 
(4) 007056 012720 000300 MOV #PR6, (RO) + P 
10092 007062 LET R71 := R1 + #30 
(7) 007062 062701 000030 ADD #30,R1 
10093 007066 UNTIL R1 EQ #SRVEND 
(3) 007066 020127 007724 CMP R1,#SRVEND 
(6) 007072 001370 BNE $167 


10094 
10095 sENABLE INTERRUPTS ON ALL ACTIVE LINE 
zALSO, XMIT CHAR’S TO PRIME RECEIVERS 


* 


S. 


sCOPY MASK 
007074 LET CHMASK := MASK 
(4) 007074 013737 014162 007764 MOV MASK , CHMASK 
10100 007102 LET CHCNT := #0 
(4) 007102 005037 007766 CLR CHCNT ‘ 
10101 007106 LET RO := DLADD 
(4) 007106 013700 001254 MOV DLADD,RO 


-——_——----— 
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032737 
001430 
052710 
062700 


052710 


012760 


104023 


062700 


006237 
005237 


023727 
001007 


004737 


005737 
001402 


005237 
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$170: 


000001 007764 


000100 
000004 
000100 
000252 000002 


000004 


177777 


000200 
000500 
012446 


$172: 
$171: 


000010 


007764 
007766 


007766 000003 


013530 
013604 


007766 


23-DEC-82 13:56 PAGE 180 
TEST THAT CHANNELS 


F 
=1 
INTR AT ASSIGNED PRIORITY 
REPEAT 
IF #B1TO SETIN CHMASK THEN 


#B1T0, CHMASK 
$171 
zSET RCSR IE 
LET (RO) := (RO) SET.BY #BIT6 
#B1T6, (RO) 
LET RO := RO + #4 
#4,R0 
:SET XCSR IE 
LET (RO) := (RO) SET.BY #BIT6 
#B1T6, (RO) 
:LOAD XBUF 
LET 2(RO) := #252 
#252,2(RO) 
:GO BACK TO RCSR 
LET RO := RO = #4 
#4,RO 
:LOOK FOR RCVR DONE 
CALL TIMER IN <#500,#RCVRDONE ,RO,#SET> 
RS,=(SP) 
#SET,-(R5) 
RO,-(R5) 
ARCVRDONE ,=(R5S) 
#500,-(R5) 
PC, TIMER 
(SP)+,R5 
:DID IT SET IN TIME? 
IF .ERROR’ THEN 
$172 
sRCVRDONE DID NOT SET IN RCSR 
ERRHRD 23 
23 
ENDIF 
ENDIF 
LET RO := RO + #10 
#10,R0 
:SETUP FOR NEXT CHANNEL 
LET CHMASK := CHMASK SHIFT =1 
CHMASK 
LET CHCNT := CHCNT + #1 
CHCNT 
IF CHCNT EQ #3 THEN 
CHCNT #3 
$173 
CALL TSTCON 
PC, TSTCON 
IF CONSOLE NE #0 THEN 
CONSOLE 
$174 
LET CHCNT := CHCNT + #1 
CHCNT 


SEQ 0070 


poe 


v-—---- _— ee — — — _ 


G. 6 
CNDLAAO DLV11-J_TEST MACY11 30(1046) 23=DEC-82 13:56 PAGE 180-2 
CNDLAA.P11 23-DEC-82 13:55 T21 TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY SEQ 0071 
— 10130 =007244 ENDIF 
(4) 007244 $174: 
; 10131 007244 ENDIF 
(4) 007244 $173: 
10132 007244 UNTIL CHCNT EQ #4 
(3) 007244 023727 007766 000004 cMP CHCNT ,#4 
10183 007252 001317 BNE $170 
10134 sALL XMIT & REC INTERRUPTS SHOULD BE 
10135 3 IN CONTENTION. 
10136 sRECEIVE INTERRUPTS HAVE PRIORITY 
10137 sOVER XMIT INTERRUPTS. 
138 LOW CHANNELS HAVE PRIORITY OVER HIGH CHANNELS. 
10139 s THEREFORE, ONCE CPU PRIORITY IS LOWERED, 
10140 : INTERRUPTS S/B_IN THE ORDER SHOWN IN THE 
es sCHANNEL IDENTIFIER TABLE (RCHO:) 
10143 SET UP POINTER FOR SERVICE ROUTINE 
10144 007254 LET R4 := #INTRTABLE 
101e8 007254 012704 007744 MOV #INTRTABLE ,R4 
10146 sLET EM GO 
+ D4 007260 SETPRI #PRO 
10149 DISABLE ALL INTERRUPTS 
10150 007272 BRESET 
1065) 007272 000005 RESET 
10152 007274 LET TCNT := #0 
(4) 007274 005037 007772 CLR TCNT 
10153 ;CLEAR ERR FLAG 
10154 007300 LET PRIERR := #0 
(4) 007300 005037 007770 CLR PRIERR 
10155 007304 LET RO := #INTRTABLE 
(4) 007304 012700 007744 MOV #INTRTABLE ,RO 
10156 sSETUP EXPECTED VALUE 
10157 007310 LET R1 := #INTRTABLE+2 
(4) 007310 012701 007746 MOV #INTRTABLE+2,R1 
4 a 007314 013737 014162 007764 MOV MASK , CHMASK 3GET # OF CHANNELS IN TCNT 
10160 007322 006237 007764 1$: ASR CHMASK 
10161 007326 103002 BCC 2$ 
10162 007330 005237 007772 INC TCNT 3GET TOTAL CHANNEL CT 
10163 007334 005737 007764 2$: TST CHMASK 
44 3 007340 001370 BNE 1$ 
10166 007342 004737 013530 JSR PC, TSTCON CORRECT CHANNEL CT FOR CONSOLE 
10167 007346 005737 013604 TST ae 
10168 007352 001402 BEQ $ 
10169 007354 005337 007772 DEC TCNT 
igi 007360 006337 007772 3$: ASL TCNT sAPPLY X2 MULT FACTOR 
10172 7364 005337 007772 4$: DEC TCNT 
10173 007370 001410 BEQ 5 
10174 007372 023727 007772 177777 CMP TCNT ,#=i sALL 1°S ? 
10175 007400 001404 BEQ 5$ 3BR IF YES 


ee 
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| 10176 007402 022120 CMP (R1)*,(RO)+ zR1-R0 
| 10177 007404 003 BGT 4$ :BR IF R1>RO 
19178 007406 005237 007770 INC PRIERR ZELSE ERROR 
/ 10180 00741 5$: 
| 10181 00741 IF PRIERR NE #0 THEN 
(6) 007412 005737 007770 TST PRIERR 
(9) 007416 001401 BEQ $175 
10182 007420 ERRHRD 250 
(1) 007420 104250 ERROR 250 
10183 CHANNELS DID NOT INTR ACCORDING T 
10184 ‘ASSIGNED PRIORITY. THE BYTE ENTRIES 
10185 3IN INTRTABLE: SHOULD BE IN THE ORDER 
10186 ‘THAT THEY APPEAR IN THE CHANNEL # 
10187 TABLE .(EXCLUDING CHANNELS NOT ACTIVE) 
10188 007422 ENDIF 
(4) 007422 $175: 
10189 
10190 007422 EXIT 
(3) 007422 000565 BR TST22 s:EXIT THIS TEST 


rm---- ee 
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“109 
10198 FRRAAARERAEEEEAAERAREE TARA EAAEAAAREEEEREAHAREEKEKERERKE HARE E TES 
10199 ii START OF SERVICE ROUTINES 
10200 FF EAAAAAAAAEA EERE AAEEAAEEEEAEAEEAAAEEAAEEEREEARERAEEREARERAEREREE 
10205 
10206 007424 BGNSRV RCVROSRV 
(1) 007424 RCVROSRV: 
10207 :PuT INTR IDENTIFIER IN INTRTABLE 
10208 007424 LET (R4)+ := RCHO 
(4) 007424 013724 007724 MOV RCHO, (R4)+ 
10209 :GENERATE CSR ADDRESS 
10210 007430 LET TEMP := RCSR 
(4) 007430 013737 001260 007774 MOV RCSR, TEMP 
10211 007436 LET TEMP := TEMP + #0 
(7) 007436 062737 000000 007774 ADD #0, TEMP 
10212 sONE INTR IS ALL WE WANT FROM HERE 
10213 007444 LET @TEMP := aTEMP CLR.BY #BIT6 
(7) 007444 042777 000100 000322 BIC #811T6,aTEMP 
10214 007452 ENDSRV 
(1) 007452 000002 RTI 
10215 
10216 
10217 007454 BGNSRV XMITOSRV 
(1) 007454 XMITOSRV: 
10218 ;PuT — IDENTIFIER IN INTRTABLE 
10219 007454 LET (R4)+ := TCHO 
(4) 007454 013724 007734 MOV TCHO, (R4)+ 
10220 :GENERATE CSR ADDRESS 
10221 007460 LET TEMP := RCSR 
(4) 007460 013737 001260 007774 MOV RCSR, TEMP 
10222 007466 LET TEMP := TEMP + #4 
(7) 007466 062737 000004 007774 ADD #4, TEMP 
10223 :ONE INTR IS ALL WE WANT FROM HERE 
10224 007474 LET @TEMP := aTEMP CLR.BY #BIT6 
(7) 007474 042777 000100 000272 BIC #B1T6,aTEMP 
10225 007502 ENDSRV 
10st 007502 000002 RTI 
10227 007504 BGNSRV RCVRISRV 
(1) 007504 RCVR1SRV: 
10228 :PUT INTR IDENTIFIER IN INTRTABLE 
10229 007504 LET (R4)* := RCH1 
(4) 007504 013724 007726 MOV RCH1, (R4)+ 
10230 : GENERATE CSR ADDRESS 
10231 007510 LET TEMP := RCSR 
(4) 007510 013737 001260 007774 MOV RCSR, TEMP 
10232 007516 LET TEMP := TEMP + #10 
(7) 007516 062737 000010 007774 ADD #10, TEMP 
10233 sONE INTR IS ALL WE WANT FROM HERE 
10234 007524 LET @TEMP := aTEMP CLR.BY #BIT6 
(7) 007524 042777 000100 000242 BIC #B1T6,aTEMP 
10235 007532 ENDSRV 
1084 007532 000002 RTI 
10237 007534 BGNSRV XMITISRV 
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013724 


013737 
062737 


042777 
000002 


013724 


013737 
062737 


042777 
000002 


013724 


013737 
062737 


042777 
000002 


013724 


013737 
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XMITISRV: 
007736 MOV TCH1, (R4)+ 
001260 007774 MOV RCSR, TEMP 
000014 007774 ADD #14, TEMP 
000100 000212 BIC #B1T6,aTEMP 
RTI 
RCVR2SRV: 
007730 MOV RCH2,(R4)+ 
001260 007774 MOV RCSR, TEMP 
000020 007774 ADD #20, TEMP 
000100 000162 BIC #B1T6,aTEMP 
RTI 
XMIT2SRV: 
007740 MOV TCH2, (R4)+ 
001260 007774 MOV RCSR, TEMP 
000024 007774 ADD #24, TEMP 
000100 000132 BIC #B1T6,aTEMP 
RTI 
RCVR3SRV: 
007732 MOV RCH3, (R4)+ 
001260 007774 MOV RCSR, TEMP 


J. 6 
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TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 


ENDSRV 


BGNSRV 


ENDSRV 


BGNSRV 


ENDSRV 


3PUT —s IDENTIFIER IN INTRTABLE 
LET (R4)+ := TCHT 


GENERATE CSR ADDRESS 
LET TEMP : 


LET TEMP := TEMP + #14 


sONE_INTR IS ALL WE WANT FROM HERE 
LET @TEMP := @TEMP CLR.BY #BIT6 


RCVR2SRV 


8 _ IDENTIFIER IN INTRTABLE 
T (R4) RCH2 


GENERATE CSR ADDRESS 
LET TEMP := RCSR 


LET TEMP := TEMP + #20 


sONE_INTR IS ALL WE WANT FROM HERE 
LET @TEMP := @TEMP CLR.BY #B1T6 


XMIT2SRV 


PUT INTR_IDENTIFIER IN INTRTABLE 
LET (R4)+ := TCH2 


;GENERATE CSR ADDRESS 
LET TEMP := 


LET TEMP := TEMP + #24 


3 ONE INTR IS ALL WE WANT FROM HERE 
LET @TEMP := @TEMP CLR.BY #BIT6 


BGNSRV RCVR3SRV 


sPUT INTR Jogi ar ten IN INTRTABLE 
LET (R4)+ z= R 


; GENERATE CSR ADDRESS 
LET TEMP := RCSR 


LET TEMP := TEMP + #30 


SEQ 0074 


CNDLAAO DLV11 
CNDLAA.P11 


: . (7) 
10273 
Wer 


me 
re a 


(7) 
10275 
(1) 
10276 
10277 


) 
10278 
10279 


007656 
007664 
007664 


"23 


TEST 


~DEC-82 1 


062737 


042777 
000002 


013724 


013737 
062737 


042777 
000002 


000030 


000100 


007742 


001260 
000034 


000100 


ee 


007774 


000102 


007774 
007774 


000052 


macyyt 30( 1046) ort 
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a 
81-2 
TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 


ADD 


BIC 
RTI 


XMITSSRV: 


MOV 


MOV 
ADD 


BIC 


RTI 
SRVEND: 


#30, TEMP 


#8116 ,aTEMP 


TCHS, (R4)+ 


RCSR, TEMP 
#34, TEMP 


#8116,aTEMP 


ENDSRV 


BGNSRV 


ENDSRV 


:ONE INTR IS ALL WE WANT FROM HERE 
LET @TEMP := aTEMP CLR.BY #BIT6 


XMIT3SRV 


3PUT oy" IDENTIFIER IN INTRTABLE 
LET (R4)+ CH3 


; GENERATE CSR ADDRESS 
LET TEMP := RCSR 


LET TEMP := TEMP + #34 


3 ONE INTR IS ALL WE WANT FROM HERE 
LET @TEMP := aTEMP CLR.BY #B1T6 


SEQ 0075 rt 


“ae ae 


L 
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CNDLAA.P11 33-DEC-82 13:5 TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY SEQ 0076 
| 10288 
| 10289 
' 10290 
/ 10291 
| 1029 3 **CHANNEL IDENTIFIER TABLE** 
| 1029 THE ENTRIES f ROM THIS 
, 10294 ;TABLE ARE PLACED IN THE INTRTABLE 
| 10295 \ ——EINPTHE ORDER THAT THE INT 
10296 SOCCUR. (EXCLUDING NOtmACT ive CH'S) 
10297 007724 000000 \ RCHO:  .WORD 0 
10298 007726 000001 RCH1:  .WORD 1 
| 10299 000002 RCH2: ‘WORD 2 
10 007732 000003 RCH3:  .WORD 3 
| 10301 007734 000010 »  TCHO: {WORD 30 
10302 736 000011 TCH1:  . WORD 71 
10303 007740 012 TCH2: . le 
10304 007742 000013 TCH3: 1 
10306 :THIS TABLE WILL CONTAIN ENTRIES 
10307 REPRESENTING EACH INTR IN THE ORDER 
10308 sTHAT IT OCCURED 
10309 : $/B IN THE ABOVE ORDER 
10311 007744 000010 als Ba .BLKW OB. 
10312 007764 TABEND : 
10314 007764 000000 CHMASK: .WORD 0 BITS peoaeare WHICH CH'S ARE ACTIVE FOR THIS TEST 
10315 007766 000000 CHCNT: . 0 er ANNE L COUNTER 
10316 007770 000000 PRIERR: .WORD 0 ERR R WORD. CONTAINS NO. OF INTR OUT OF ORDER 
10317 007772 000000 TCNT:  .WORD 0 STABLE PASS C 
10318 007774 000000 TEMP: WORD 0 FOR SERVICE ROUTINES 


(--—-- ee 
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8 
TEST THAT CHANNELS INTR AT ASSIGNED PRIORITY 


[CNDLAA.PIT = -23-DEC~82 13:55 SEQ 0077 
| 10321 
10322 
10338 FARRAR AAAAEAAARAEAEEEAEEE EEE EAAAAEEREEAAEAEAEEREREEEEEREEEEEEEEE 
(3) tSTEST 22 TEST DATA TRANSFERS WITH ALL f°TIVE LINES | INTERRUPTING 
(4) * IN THIS WE°LL ENABLE INTERRUP| N ALL CHANNELS 
(4) ie FOR THIS DLV11-J. THEN WE'LL Xii.i AN IN eR RE MENTING 
(4) te DATA PATERN VIA INTERRUPTS AND RECORD THE RECEIVER 
(4) 3* INTR. IN THE RECEIVER STATUS TABL 
(4) ie NOTE: DOUBLE BUFFERING CANNOT BE TESTED AT ITS MAX SPEED 
(4) 3* BECAUSE OF APT CONSIDERATIONS. I. SENDS 
(4) te "BREAKS’ WHICH CAUSE OVERRUN ERRORS. THEREFORE 
(4) 3* THE XMIT IE IS NOT E AGAIN UNTIL THE RECVR 
(4) 3 HAS OBTAINED THE PREVIOUS. WORD. 
(3) : Z SRAAEAEAAAERERIERAEAAEEEEEEEEEEEEAEAAEAEREEEREEEEEAREEAEEEEAEEEEEERE 
(2) 007776 000004 TST22: SCOPE 
(1) 010000 012737 000001 001160 MOV #1, $TIMES 3:00 1 ITERATION 
10583 010006 012737 000022 001200 MOV #22, $TESTN 3iSET TEST NUMBER IN APT MAIL BOX 
10344 010014 LET ERWRD := 
(4) 010014 005037 012366 CLR ERWRD 
10345 
10346 
10347 zCLEAR OUT RECEIVER TABLES 
10348 010020 LET RO := #CHOTAB 
(4) 010020 012700 011360 MOV #CHOTAB,RO 
10349 010024 REPEAT 
(3) 010024 $176: 
10350 010024 LET (RO)+ := #0 
(4) 010024 005020 CLR (RO) + 
10351 010026 UNTIL RO EQ #STATEND 
(3) 010026 020027 012360 CMP RO, #STATEND 
10583 10032 001374 BNE $176 
10353 -SET UP ALL VECTORS 
10354 010034 LET R1 := #ROSRV 
(4) 010034 012701 010660 MOV #ROSRV,R1 
10355 010040 LET RO := DLVEC 
(4) 010040 013700 001256 MOV DLVEC,RO 
10356 010044 REPEAT 
(3) 010044 $177: 
10357 010044 LET (RO)+ := R1 
(4) 010044 010120 MOV R1, (RO)+ 
10358 010046 LET (RO)+ := #PR6 
(4) 010046 012720 000300 MOV #PR6, (RO) + 
10359 010052 LET R1 := R1 + #54 
(7) 910052 062701 000054 ADD #54,R1 
10360 010056 LET (RO)+ := R1 
(4) 910056 010120 MOV R1,(RO)+ 
10361 010060 LET (RO)+ := #PR6 
(4) 010060 012720 000300 MOV #PR6, (RO)+ 
10362 010064 LET R1 := R1 + #44 
(7) 010064 062701 000044 ADD #44,R1 
10363 010070 UNTIL R1 EQ #SEREND 
(3) 010070 020127 011360 CMP R1,#SEREND 
(6) 010074 001363 BNE $177 





|CNDLAAO DLV11-J_TEST 


CNDLAA.P11 


010076 


ooooo oooo oo 
WRN whe. 


er Se er er ee er er er ee ner oer ee eee er ee ae 
VM WMS LE Ww 


S838 383— Sette ate ete ete tee 
a o 


OOOCOSCSOSCOOSOS CCOOoO CO CcOoOCoCOoOCOoOO cCooeo oO 


CSoOoOCOoCoCoCoCCoOoCCOOoO CCCoOoO SoCo CO 


ow tt 3 3 3 


SRAVRRSS 


323 SS SS 
MMP NPN 
MN — 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 





013700 


013737 
005037 


005037 


032737 
001413 


005237 


052710 
062700 


052710 
062700 
000402 


062700 


006237 


005237 


023727 
001007 


004737 


005737 
001402 


005237 


6 
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23-DEC-82 13:55 TEST DATA TRANSFERS 


001254 


014162 
012362 


012364 


000001 


012364 


000100 
000004 


000100 
000004 


000010 
012360 
012362 


012362 


013530 
013604 


012362 





012360 


012360 


000003 





SETPRI #PR6 


MOV 


MOV 
CLR 


CLR 
$200: 

BIT 

BEQ 

INC 


BIS 
ADD 


BIS 
ADD 


BR 
$201: 


ADD 
$202: 
ASR 


INC 


cMP 
BNE 


JSR 


TST 
BEQ 


INC 


DLADD ,RO 


MASK , CHMSK 
CHCTR 


ACTCH 
#B81T0,CHMSK 
$201 


ACTCH 


#B1T6, (RO) 
#4,R0 


#8176, (RO) 
#4,R0 
$202 


#10,R0 
CHMSK 
CHCTR 
CHCTR,#3 
$203 


PC, TSTCON 
CONSOLE 
$204 


CHCTR 


N 
WITH ALL ACTIVE LINES INTERRUPTING 


3SET PRIORTY TO 6 


“THIS 
LET RO := DLADD 


; INITIALIZE 
LET CHMSK := MASK 


LET CHCTR := 40 


sACTIVE CHANNEL CTR 
LET ACTCH := #0 


REPEAT 
IF #BITO SETIN CHMSK THEN 


7 ENABLE ot ON ALL ACTIVE LINES 


34 OF ACTIVE CH 
LET ACTCH := ACTCH + #1 


SET RCSR IE 
LET (RO) := (RO) SET.BY #BIT6 


LET RO := RO + #4 


sSET XCSR IE 
LET (RO) := (RO) SET.BY #B1T6 


LET RO := RO + #4 
ELSE 


LET RO := RO + #10 
ENDIF 
LET CHMSK := CHMSK SHIFT -1 


LET CHCTR := CHCTR + #1 
IF CHCTR EQ #3 THEN 


CALL TSTCON 
IF CONSOLE NE #0 THEN 


LET CHCTR := CHCTR + #1 


SEQ 0078 





er a ES ee woe 


Pee ae eae 
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|CNDLAA.P11 ©. 23=DEC-82 13:55 T22 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING SEQ 0079 
103% 010232 ENDIF 
(4) 010232 $204: 
10397 010232 ENDIF 
(4) 010232 $203: 
10398 010252 UNTIL CHCTR EQ #4 
(3) 01023 023727 012362 000004 CMP CHCTR, #4 
1033 010240 0013 BNE $200 
10400 “INIT BUFFER POINTERS FOR SERVICE ROUTINES 
10401 010242 LET RO := #CHOTAB 
(4) 010242 012700 011360 MOV #CHOTAB,RO 
10402 010246 LET R1 := #CHITAB 
(4) 010246 012701 011560 MOV #CH1TAB,R1 
10403 010252 LET R2 := #CH2TAB 
(4) 010252 012702 011760 MOV #CH2TAB,R2 
10404 010256 LET R3 := #CH3TAB 
10682 010256 012703 012160 MOV #CH3TAB,R3 
10406 :FILL XBUF WORDS 
10407 :FROM TMPO THRU TMP3E 
10408 [START WORD CH 0 ALWAYS 0 
10409 010262 LET TMPO := #0 
(4) 010262 005037 012372 CLR TMPO 
10410 sOFFSET TO INDEX 
10411 010266 LET R4 := #0 
(4) 010266 005004 CLR RG 
10412 :PTR TO TABLE TO BE FILLED 
10413 010270 LET RS := #TMPOE 
(4) 010270 012705 012374 MOV #TMPOE RS 
10414 010274 REPEAT 
(3) 010274 $205: 
10415 010274 IF #BITO NOTSETIN $USWR THEN 
(6) 010274 032737 000001 001220 BIT #B1T0,S$USWR 
(9) 010302 001005 BNE $206 
10416 010304 LET (R5)+ := TABL7(R4) 
(4) 010304 016425 012426 MOV TABL7(R4), (RS) 
10417 010310 LET (R5)+ := TABL7(R4) 
(4) 010310 016425 012426 MOV TABL7(R4), (R5)+ 
10418 010314 ELSE 
(4) 010314 000404 BR $207 
(3) 010316 $206: 
10419 010316 LET (R5)+ := TABL8(R4) 
(4) 010316 016425 012436 MOV TABL8(R4), (RS) 
10420 010322 LET (R5)+ := TABL8(R4) 
(4) 010322 016425 012436 MOV TABL8(R4), (RS)+ 
10421 010326 ENDIF 
(4) 010326 $207: 
10422 010326 LET R4 := RG + #2 
(7) 010326 062704 000002 ADD #2,R4 
10423 010332 UNTIL R4 EQ #10 
(3) 010332 020427 000010 CMP R4,#10 
(6) 010336 001356 BNE $205 
10424 sINIT TMP4 
10425 “WILL BE DECR BY XMIT SERVICE ROUTINES TILL 0 
10426 010340 LET TMP4 := ACTCH 
(4) 010340 013737 012364 012414 MOV ACTCH, TMP4 
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‘CNDLAAO DLV11=y TEST _ MACY11 30(1046) 23-DEC-82 13:56 PAGE 183-3 
|CNDLAA.P11 -- 23-DEC=82 13:55 122 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING SEQ 0080 
| 10427 :SET PRIORITY TO 0 
10428 010346 SETPRI #PRO 
10429 
10430 010360 REPEAT 
(3) 010360 $210: 
10431 010360 UNTIL TMP4 EQ #0 
(3) 010360 005737 012414 TST TMP4 
10683 010364 001375 BNE $210 
10433 ;WAIT FOR RECV'S TO CATCH UP 
10434 010366 LET TMP4 := #100000 
(4) 010366 012737 100000 012414 MOV #100000, TMP4 
10435 010374 REPEAT 
(3) 010374 $211: 
10436 010374 LET TMP4 := TMPG = #1 
(7) 010374 005337 012414 DEC TMP4 
10437 010400 UNTIL TMP4 EQ #0 
(3) 010400 005737 012414 TST TMP4 
10.83 010404 001373 BNE $211 
10439 sDISABLE ALL INTR'S 
10440 010406 BRESET 
10.42 010406 000005 RESET 
10442 :CHECK RECEIVER TABLE 
10443 *RESET TMPO,1,2, 
10444 010410 LET TMPO := #0 
(4) 010410 005037 012372 CLR TMPO 
10445 010414 LET TMP1 := TMPOE 
(4) 010414 013737 012374 012376 MOV TMPOE , TMP1 
10446 010422 LET TMP2 := TMPIE 
(4) 010422 013737 012400 012402 MOV TMP1E , TMP2 
10447 010430 LET TMP3 := TMP2E 
(4) 010430 013737 012404 012406 MOV TMP2E , TMP3 
10448 s INITIALIZE 
10449 010436 LET CHCTR := #0 
(4) 010436 005037 012362 CLR CHCTR 
10450 010442 LET CHMSK := MASK 
(4) 010442 013737 014162 012360 MOV MASK, CHMSK 
10451 010450 REPEAT 
(3) 010450 $212: 
10452 010450 IF #BITO SETIN CHMSK THEN 
(6) 010450 032737 000001 012360 BIT #B81T0,CHMSK 
(9) 010456 001436 BEQ $213 
10453 010460 LET RO := CHCTR 
(4) 010460 013700 012362 MOV CHCTR.RO 
10454 OFFSET To INDEX (2x) 
10455 010464 T RO := RO SHIF 
(8B) 010464 006300 ASL RO 
10456 Get TABLE LOC FOR THAT CH. 
10457 010466 T R2 := TABL6(RO) 
(4) 010466 016002 012416 MOV TABL6(RO) .R? 
10458 OFFSET TO INDEX (4X) 
10459 010472 T RO := RO SHIFT +1 
(8) 010472 006300 ASL RO 
10460 :GET EXPECTED STARTING WORD 


i¢ 


| eg? 


NDLAAO DLV11-J_TEST mac 1 30(1046) 


NDLAA.P11 23-DEC-82 


010474 
010474 016001 012372 
10463 010500 
010500 062700 000002 
10463 
10464 010504 
(4) 010504 016003 012372 
10465 
10466 010510 
(3) 010510 
10467 010510 
(6) 010510 032712 100000 
(9) 010514 001403 
10468 010516 
(7) 010516 052737 000400 012366 
10469 010524 
(4) 010524 
10470 
10471 010524 
(6) 010524 121201 
(9) 010526 001402 
10472 010530 
(7) 010530 005237 012366 
10473 010534 
(4) 010534 
10474 
10475 010534 
(7) 010534 005201 
10476 
10477 010536 
(7) 010536 062702 000002 
10478 
10479 010542 
(4) 010542 020103 
(6) 010544 001403 
(4) 010546 005737 012366 
(7) 010552 001756 
(4) 010554 
10480 010554 
(4) 010554 
10481 010554 
(7) 010554 005237 012362 
10482 010560 
(8) 010560 006237 012360 
10483 010564 
(6) 010564 023727 012362 000003 
(9) 010572 001010 
10484 010574 
(3) 010574 004737 013530 
10485 010600 
(6) 010600 023727 013604 000001 
(9) 010606 001002 
10486 
10487 010610 
(7) 010610 005237 012362 
10488 010614 


7 
ae 82 13:56 PAGE 183-4 


$214: 


$215: 


$216: 


$217: 
$213: 


D 
8 
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING 
LET R1 := TMPOC(RO) 
LET RO := RO + #2 


3GET MAX WORD FOR THAT CH. 
LET R3 := TMPOCRO) 


Mov —s TMPO(RO),R1_ 
ADD #2,R0 


MOV TMPO(RO) ,R3 
REPEAT 


IF #BIT15 SETIN (R2) THEN 
BIT +) Na aa 5 


LET ERWRD := ERWRD SET.BY #BIT8 
ENDIF 


CHECK FOR DATA “COMPARE ERROR 
IFB (R2) NE R1 THEN 


BIS #8178 ,ERWRD 


CMPB (R2),R1 
Q $216 


BE 
LET ERWRD := ERWRD + #1 
INC ERWRD 
ENDIF 
; BUMP EXPECTED DATA WORD 
LET R1 := R1 + #1 
INC R1 
:BUMP TABLE PTR 
LET R2 := R2 + #2 
ADD #2,R2 
UNTIL R1 EQ R3 OR ERWRD NE #0 
CMP R1,R3 
BEQ $217 
TST ERWRD 
BEQ $214 
ENDIF 
LET CHCTR := CHCTR + #1 
INC CHCTR 
LET CHMSK := CHMSK SHIFT -1 
ASR CHMSK 
IF CHCTR EQ #3 THEN 
CMP CHCTR,#3 
BNE $220 


CALL TSTCON 
IF CONSOLE EQ #TRUE THEN 


JSR PC, TSTCON 
CMP CONSOLE , #TRUE 
$221 


T 
CHCTR := CHCTR + #1 


INC CHCTR 





SEQ 0081 


+ 





CNDLAA 
C 


NDLAA.P “33-DeC~82 13:5 


peatet 012362 000004 


24 005737 012366 
0630 001707 


(6) 010632 032737 000400 012366 
01 001401 


(1) 010642 104270 
at $4 010644 


(6) 010644 105737 012366 
» 010650 001401 


(1) 010652 104271 


02 010654 000137 006502 


V11-J_TEST macyit 30(1046) 


7 
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$221: 
$220: 


$222: 


$223: 


$224: 


8 
TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING SEQ 0082 


ENDIF 
UNTIL CHCTR EQ #4 OR ERWRD NE #0 


BEQ $2 
TST ERWRD 
BEQ $212 


IF #BIT8 SETIN ERWRD THEN 
BIT a ccaameg 


gERROR FLAG UP AFTER TRANSFER 
ERRHRD 


ENDIF 
IFB ERWRD NE #0 THEN 


ERROR 270 


TSTB ERWRD 
$224 


BEQ 
“DATA COMPARE ERROR 
ERRHRD 271 
ERROR 271 
ENDIF 
JMP TST20 sEXIT TEST 


ee - ——— 


‘CNDLAAO DLV11<5_ TEST 
‘CNDLAA.P11 


| 10504 


| 


RANA AMNVIUIIVIVI 
Deel eee ee ek aOd 
~O~O~nn—Ow 


- 
So 
PNM AVMAR VAR UIA 


010710 
010710 


010716 


013737 
062737 
017720 
BER 
062737 


052777 


000402 


005337 


009002 


013737 
062737 
013777 
005237 


162737 


042777 
000002 


MACY11 30(1046) 
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001260 
000002 
001470 
012372 
000002 


000100 


012414 


001260 
000006 
012372 
012372 


000002 


000100 


012370 
012370 


012374 


012370 


001444 


012370 
012370 
001412 


012370 


001372 


153" te 


F 
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TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING SEQ 0083 


FARRAR AAEEEEEAA EEE EEEEEETERAEAEAEEEEAEREEEERAEREEREEEEEEENEE 


START OF SERVICE ROUTINES 


FFARR AAAEEER AERA AERAEEEE EATER EEAAAEAAEAAAEEEAEARERAREEKEEEERAT AED 


4) 


ROSRV: 


$225: 


$226: 


XOSRV: 


RISRV: 


MOV 
ADD 
MOV 
BEO 
ADD 


BIS 


DEC 


RTI 


MOV 
ADD 
MOV 
INC 


SUB 


BIC 
RTI 


RCSR, TMP 
#2, TMP 
aTMP, (RO)+ 
eat 


#2, TMP 
#81T6,aTMP 


$226 


TMP4 


RCSR, TMP 
#6, TMP 
TMPO ,aTMP 
TMPO 


#2, TMP 


#B1T6,aTMP 


BGNSRV ROSRV 
LET TMP := RCSR 
LET TMP := TMP + #2 
LET (RO)+ := @TMP 
IF TMPO NE TMPOE THEN 


SR 
= TMP + #2 


TMP : 
ABL .. -y¥ INTERR 
@TMP := @TMP SET.BY #B1T6 


ELSE 
sALL_DONE 
LET TMP4 := TMPG = #1 
ENDIF 
ENDSRV 


BGNSRV XOSRV 
LET TMP := RCSR 
LET TMP := TMP + #6 
LET aTMP := TMPO 
LET TMPO := TMPO + #1 
ar 18 SE 
DISABLE XMIT INTERRUPTS, 


“NOT EXER DOUBLE BUFFERING 
LET @TMP := @TMP CLR.BY #BIT6 


ENDSRV 


BGNSRV R1ISRV 


Pe oe} 


CNDLAAO DLVIt~y TEST 
CNDLAA.P11 3-DEC-82 
10546 011000 
(4) 011000 013737 
10547 011006 
(7) 011006 062737 
10548 011014 
(4) 011014 017721 
10549 011020 
|" (6) 011020 023737 
(9) 011026 001407 
| 10550 
10551 011030 
| (7) 011030 062737 
| 10552 
| 10553 011036 
| “"(7) 011036 052777 
| 10554 011044 
| (4) 011044 000402 
(3) 011046 
| 10555 
| 10936 911046 
(7) 011046 005337 
10557 011052 
(4) 011052 
10558 011052 
(1) 011052 000002 
10559 
10560 011054 
(1) 011054 
10561 011054 
(4) 011054 013737 
10562 011062 
(7) 011062 062737 
10563 011070 
(4) 011070 013777 
10564 011076 
(7) 011076 005237 
10565 
0566 011102 
(7) 011102 162737 
10567 
0568 
10569 011110 
(7) 011110 042777 
10570 011116 
(1) 011116 000002 
10571 
10572 011120 
(1) 011120 
10573 011120 
(4) 011120 013737 
10574 011126 
(7) 011126 062737 
10575 011134 
(4) 011134 017722 
10576 011140 
(6) 011140 023737 


° CY11 30(1046) 


001350 


012376 


000002 


000100 


012414 


001260 
000016 
012376 
012376 


000002 


000100 


001260 
000022 
001230 
012402 


012370 
012370 


012400 


012370 


001324 


012370 
012370 
001272 


012370 


001252 


012370 
012370 


012404 


23-DEC- 
T22 


$227: 


$230: 


X1SRV: 


R2SRV: 


MOV 
ADD 
MOV 
CMP 
BEQ 
ADD 
BIS 
BR 

DEC 


RTI 


ADD 


INC 


ADD 
MOV 


RCSR, TMP 
#12, TMP 
aTMP,(R1)+ 
TMP1 , TMPI1E 
$227 


#2, TMP 
#B1T6,aTMP 


$230 


TMP4 


RCSR, TMP 
#16, TMP 
TMP1 ,aTMP 
TMP 1 


#2, TMP 


#B8116,aTMP 


RCSR, TMP 
#22, TMP 
aTMP,(R2)+ 
TMP2 , TMP2E 


G 7 
82 13:56 PAGE 184-1 
TEST DATA TRANSFERS 


WITH ALL ACTIVE LI 


LET TMP := 


LET TMP := 
LET (R1)+ 
IF TMP1 NE 


cme 


G 
ET 
7 EN 
ET 


7 ENABL 
LET @ 


T 
ELSE 


NES INTERRUPTING 
RCSR 

TMP + #12 

:= @TMP 

TMPIE THEN 


O TO XCSR 
TMP := TMP + #2 


E XMIT INTERR 
MP := @TMP SET.BY #BIT6 


;ALL_DONE 
LET TMP4 := TMP4 = #1 


ENDIF 
ENDSRV 


BGNSRV X1SRV 
LET TMP := 
LET TMP := 
LET aTMP 
LET TMP1 
;GO BA 
LET TMP := 
sDISAB 
sNOT E 
LET @TMP : 


ENDSRV 


BGNSRV R2SRV 
LET TMP := 
LET TMP := 
LET (R2)+ 
IF TMP2 NE 


RCSR 
TMP + #16 


:= TMPT 
:= TMP1 + #1 


CK TO XCSR 
TMP = #2 
LE XMIT INTERRUPTS, 


XER DOUBLE BUFF 
= @TMP CLR.BY 4B1T6 


RCSR 

TMP + #22 
:= @TMP 
TMP2E THEN 


SEQ 0084 
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CNDLAA.P11 «=. 23=DEC=82 13:55 2 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING SEQ 0085 
(9) 011146 001407 BEQ $231 
10577 :60 TO CSR 
10578 011150 LET TMP := TMP + #2 
(7) 011150 062737 000002 012370 ADD #2, TMP 
10579 7 ENABL LE MIT INTERR 
' 10580 011156 LET aTMP := @TMP SET.BY #BIT6 
(7) 011156 052777 000100 001204 BIS #8116, aTMP 
10581 011164 ELSE 
(4) 011164 000402 BR $232 
(3) 011166 $231: 
| 105 ZALL DONE 
' 10583 011166 LET TMP4 := TMP4 = #1 
(7) 011166 005337 012414 DEC TMPG 
10584 011172 ENDIF 
(4) 011172 $232: 
10585 011172 ENDSRV 
(1) 011172 000002 RTI 
10586 
10587 011174 BGNSRV X2SRV 
(1) 011174 X2SRV: 
10588 011174 LET TMP := RCSR 
(4) 011174 013737 001260 012370 MOV RCSR, TMP 
10589 011202 LET TMP := TMP + #26 
(7) 011202 062737 000026 012370 ADD #26, TMP 
10590 011210 LET aTMP := TMP2 
(4) 011210 013777 012402 001152 MOV TMP2 ,aTMP 
10591 011216 LET TMP2 := TMP2 + #1 
(7) 011216 005237 012402 INC TMP2 
10592 :GO BACK TO XCSR 
10593 011222 LET TMP := TMP = #2 
(7) 011222 162737 000002 012370 SUB #2, TMP 
10594 :DISABLE XMIT INTERRUPTS, 
10595 : *NOT EXER DOUBLE BUFF. 
10596 011230 LET @TMP := aTMP CLR.BY #BI1T6 
(7) 011230 042777 000100 001132 BIC #8116, aTMP 
10597 011236 ENDSRV 
(1) 011236 000002 RTI 
10598 
10599 011240 BGNSRV R3SRV 
(1) 011240 R3SRV: 
10600 011240 LET TMP := RCSR 
(4) 011240 013737 001260 012370 MOV RCSR, TMP 
10601 011246 LET TMP := TMP + #32 
(7) 011246 062737 000032 012370 ADD #32, TMP 
10602 011254 LET (R3)+ := aTMP 
(4) 011254 017723 001110 MOV aTMP, (R3)+ 
10603 011260 IF TMP3 NE TMP3E THEN 
(6) 011260 023737 012406 012410 CMP TMP3, TMP3E 
(9) 011266 001407 BEQ $233 
10604 :G0 TO XCSR 
10605 011270 LET TMP := TMP + #2 
(7) 011270 062737 000002 012370 ADD #2, TMP 
10606 s ENABLE KMLT INTERR 
10607 011276 LET aTMP := aTMP SET.BY #BIT6 
(7) 011276 052777 000100 001064 BIS #8116, aTMP 
10608 011304 ELSE 


ee ee ee ee eo ee 


or 


LO eeeeEEeEeeeeEeeEeEeeEEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEeEee—e—eeEeEeEeEeEeEeEeEee 


i cS Ss 
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CNDLAAO DLV11-J_TEST MACY11 30(1046) eee 13:56 PAGE 184-3 


CNDLAA.P11 23-DEC-82 13:55 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING SEQ 0086 
' (4) 011304 000402 BR $234 
(3) 011306 $233: 
10609 sALL_DONE 
10610 01306 LET TMP4 := TMP4 = #1 
(7) 011306 005337 012414 DEC TMP4 
10611 011312 ENDIF 
(4) (11312 $234: 
10612 Biiais ENDSRV 
10613 011312 000002 RTI 
10614 011314 BGNSRV X3SRV 
(1) 011314 X3SRV: 
10615 011314 LET TMP := RCSR 
(4) 011314 013737 001260 012370 MOV RCSR, TMP 
10616 011322 LET TMP := TMP + #36 
(7) 011322 062737 000036 012370 ADD #36, TMP 
10617 011330 LET @TMP := TMP3 
(4) 011330 013777 012406 001032 MOV TMP3 ,aTMP 
10618 011336 LET TMP3 := TMP3 + #1 
(7) 011336 005237 012406 INC TMP3 
10619 3GO BACK TO XCSR 
10620 011342 LET TMP := TMP = #2 
(7) 011342 162737 000002 012370 SUB #2, TMP 
10621 DISABLE XMIT INTERRUPTS, 
10622 sNOT EXER DOUBLE BUFF 
10623 011350 LET @TMP := @TMP CLR.BY #BIT6 
(7) 011350 042777 000100 001012 BIC #B81T6,aTMP 
10624 011356 ENDSRV 
(1) 011356 000002 RTI 
10625 011360 SEREND: 


a ne 


c--c — ne a ee ee eee se 
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85 
CNDLAA. Pll 23-DEC-82 13:55 T22 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING SEQ 0087 
| 10627 
| 10628 
1 ss 94 3** RECEIVER STATUS TABLES ** 
| 106 37 BIT_wWDS 8 BIT wDS 
10631 011360 CHOTAB: .BLKW 100 : O- 37 - 77 
| Hs 011560 000100 CH1TAB: .BLKW 100 ; 100-177 
10633 011760 000100 CH2TAB: .BLKW 100 2100-137 200-277 
10634 012160 CH3TAB: .BLKW 100 3140-177 300-377 
10635 012360 STATEND: 
10636 012360 000000 CHMSK: .WORD 0 sMASK OF a CHANNELS 
10637 012362 000000 CHCTR: .WORD 0 :CHANNEL CTR 
10638 012364 000000 ACTCH: .WORD 0 SACTIVE CHANNEL CTR 
10639 012366 000000 ERWRD: .WORD 0 TERROR WORD, LOW BYTE IS NO. OF DATA ERRORS 
ioeed ‘HIGH BYTE INDICATES ERROR FLAG DETECTED 
v4 4 012370 000000 TMP: WORD 0 sTEMP STORAGE FOR SERVICE ROUTINES 
10644 012372 000000 0: 0 zSTART WORD FOR CH O 
10645 012374 000000 TMPOE: 0O SEND WORD FOR CH 0 
10646 012376 000000 Pi: 0 START 1 
10647 2400 000000 TMPIE: 0 3END 1. 
10648 012402 000000 P2: 0 START 2 
10649 012404 000000 TMP2E: 0O END 2 
10650 012406 000000 TPS: O sSTART 3 
ees 012410 000002 TMP3E: .BLKW 2 sEND 3 
Hs 012414 000000 TMP4: WORD 
10655 012416 011360 TABL6: CHOTAB 
10656 012420 011560 CH1TAB 
10657 012422 011760 CH2TAB 
H's 012424 012160 CH3TAB 
10660 012426 000040 TABL7: 40 37 BIT WORD TABLE 
10661 012430 ponte 100 , 
10662 012432 000140 140 
10665 2434 000200 200 
10665 012436 000100 TABL8: 100 378 BIT WORD TABLE 
10666 012440 000200 200 
10667 012442 000300 300 
10668 012444 000400 400 
10669 
10670 


ne ee ee a ee 


-_- 
+ ee pe Ee = cee eee ae nee 2 ee - . 
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CNDLAA.P11 23-DEC-82 13:55 T22 TEST DATA TRANSFERS WITH ALL ACTIVE LINES INTERRUPTING SEQ 0088 6 


By sg 
IcTiTitiiiiiitit iii iiitiiiiiiiiitiiiiiiiiiiitiiiiiitiiiitiiiis) 
ntien TIMER 


THIS ROUTINE IS USED TO TEST THE STATUS OF ANY BIT 
Puts: REGISTER. 


Etat 
und 


sssesscesetectss 


4 
* 
w 
he 
. HOWLONG THE grit AMOUNT OF TIME TO SPEND IN | 
* e 
* WHICHBIT ay WITH THE BIT(S) SET THAT ARE | 
® 
* REG A POINTER TO THE REGISTER TO BE CHECKED 
2 SETCLR i DESIRED RESULTS 

* EITHER #SET OR PCLEAR 

* OUTPUT: 

* HE ‘C* BIT IS SET TO INDICATE AN ERROR 

* BUT IT IS TESTED BY THE IF.ERROR STATEMENT 

® 

*® 

* 

* 


NOTE:: THE USE OF (R5) IS PART OF THE LINKAGE 
MECHANISM BETWEEN THE CALLER AND THE CALLED 


ad — 3) 3 - 2 2) St I Ss 


PARSALELALLSAAL ALAA AAA AD ALAA LATA RARER RRA RRR ROD 8 GS 


10697 

10698 

10699 

et’: 012446 ' ROUTINE TIMER <HOWLONG, WHICHBIT REG, SETCLR> 
10705 


012446 LET REGSAV := REG(RS) ; GET POINTER TO REGIST 
(4) 012446 016537 000004 012606 MOV REG(RS) ,REGSAV 
10706 012454 LET TIMSAV := HOWLONG(RS) ; SAVE HOWLONG FOR 
(4) 012454 016537 000000 012610 MOV HOWLONG(R5) , TIMSAV 
10707 012462 LET FLAG :B= #0 ; INITIALIZE THE EXIT FLAG 
012462 105037 012612 CLRB FLAG 


10710 : START OF AN INFINITE LOOP 


12466 LOOP 
12466 $237: 

; TEST TO SEE I. WHICHBIT IS SET 
12466 IF WHICHBIT(RS) NOTSETIN @REGSAV THEN 
12466 036577 000002 000112 BIT WHICHBIT(R5S) ,@REGSAV 
12474 001003 BNE $241 
12476 LET HOLDSC :B= 40 
12476 105037 012613 CLRB HOLDSC 
12502 ELSE 
12502 000403 BR $242 
12504 $241: 
12504 LET HOLDSC :B= #SET ; REMEMBER THIS 
12504 112737 177777 012613 MOVB #SET,HOLDSC 
12512 ENDIF 
12512 $242: 
10720 NOW SEE IF THAT WAS WHAT WE WANTED 


012512 . iFB HOLDSC EQ SETCLR(RS) THEN 
(6) 012512 123765 012613 000006 CMPB HOLDSC ,SETCLR(RS) 
012520 BNE $243 





ce ee ee +. ee + ee ee 


rt a a ae te ee ee ---—-— - 
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LAA.P11 “DEC-82 13:55 ROUTINE = TIMER 
| 1072 
| 1072 O1S385 
| (4) «0125 112737 000001 012612 MOVB 
10724 Sis 
(4) 012530 $243: 
10725 
10726 012530 
(4) 012530 123727 012612 000001 CMPB 
(6) 815278 001414 BEQ 
(4) 012540 005737 012610 TST 
(6) 012544 003411 . BLE 
10727 
10728 
10729 
10730 012546 
(4) 012546 010546 MOV 
(5) 012550 012745 000001 MOV 
(4) 012554 004737 012620 JSR 
(4) 012560 012605 MOV 
10731 012562 
(7) 012562 005337 012610 DEC 
10732 012566 
(4) 012566 000737 BR 
(3) 012570 $240: 
10733 
10734 : ONLY 2 
4 : 
10737 
0738 012570 
(6) 012570 123727 012612 000001 CMPB 
(9) 012576 001001 BNE 
10739 012600 
(4) 012600 000405 BR 
10740 012602 
(4) 012602 $244: 
10741 012602 
(2) 012602 000261 SEC 
10942 012604 000404 BR 
10743 012606 000000 REGSAV: .WORD 0 
10744 012610 000000 TIMSAV: .WORD 0 
10745 012612 000 FLAG: .BYTE 0 
10746 012613 000 HOLDSC: .BYTE 0 
10747 
10748 012614 
(3) 012614 $235: 
(2) 012614 000241 CLC 
(3) 012616 $236: 
(2) 012616 000207 RTS 


7 
56 PAGE 18621 


SEQ 0089 
; JUST THE THING WE NEEDED 
LET FLAG :B= #TRUE 

#TRUE ,FLAG 

ENDIF 

EXIFB FLAG EQ #TRUE OR TIMSAV LE #0 

FLAG ,#TRUE 
$240 
TIMSAV | 
$240 

ONE WAY OR THE OTHER, WE ARE DONE 

: IF ue ARE STILL HERE THEN HANG AROUND A WHILE 

WAITMS 1 ;WAIT FOR 1 MILLI-SECONDS 
R5,-(SP) 
#1,-(R5) 
PC WAIT 
(SP)+,R5 
rimsay LET TIMSAV := TIMSAV = #1 ; COUNTING DOWN 

ENDLOOP : CONTINUED AT THE TOP 

$237 


WAYS TO GET a 
). WE RAN OUT OF TIME---ERROR ! 
2). THE BIT IS IN THE CORRECT cONb1T 10N-=GooD $f 


IFB FLAG EQ #TRUE THEN 


FLAG, #TRUE 
$244 

RETURN NO.ERROR =; GOOD 
$235 

ENDIF 
i* RETURN ERROR 3 BAD 
$236 
i 
{ 
; 
i 
; WE ARE DONE GO BACK HOME 

| ENDRTN 


ke 


—_— —--. 
i 
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CNDL AA.P11 =DEC-82 1 - TIMER ‘ SEQ 0090 
18783 
- 1075 Oe ted ae ae 
1075 3* ROUTINE: WAIT 
| 10758 s@ THIS ROUTINE IS USED TO DELAY EXECUTION OF THE 
| 10759 s@ MAIN PROGRAM FOR A SPECIFIED AMOUNT OF T 
0760 se THIS IS CCOMPLISHED BY INCREMENTING A 
| 10761 3¢ REGISTER UP TO A LIMIT. THE INNER LOOP IS SET 
| 1076 s@ TO APPROXIMATE 1 MILLI SEC. 
| 1076 FERRARA EAR AAA AREA EEE E EAA AAERARARRERERERRERERERAREEEEHERE 
| 10768 012620 ROUTINE WAIT  <TIME> 
| (2) 012620 WAIT: - 
| 10769 012620 PUSH  <R1,R2,R3> 
| 10770 012626 LET R1 := TIME(RS) 
(4) 012626 016501 000000 MOV TIMEC(RS) ,R1 
10771 01263, INCRU R2 FROM #1 TO R1 BY #1 
(4) 012632 012702 000001 MOV #1,R2 
(5) 012636 000402 BR $247 
(4) 012640 $250: 
(8) 012640 062702 000001 ADD #01,R2 
» (5) -012644 : $247: 
(5) 012644 020201 CMP R2,R1 
(7) 012646 101010 BHI = $251 
10772 012650 INCR R3 FROM #0 TO #100 BY #1 
(4) 012650 005003 CLR R3 
(5) 012652 000401 BR $352 
(4) 012654 $253: 
(8) 012654 005203 INC R3 
(5) 012656 $252: 
(5) 012656 020327 000100 CMP R3,#100 
(7) 012662 003001 Bot =: $254 
10773 012664 ENDINC 
(4) 012664 000773 BR $253 
(3) 012666 $254: 
10774 012666 ENDINC 
(4) 012666 000764 BR $250 
(3) 012670 $251: 
10775 012670 POP <R3,R2,R1> 
10776 012676 ENDRTN 
(3) 012676 $245: 
(3) 012676 $246: 
(2) 012676 000207 RTS PC 


ES rn 
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\CNDLAA.P11 =DEC-82 13:55 SEQ 0091 
1077 
19979 
10780 
10781 .SBTTL ROUTINE TO SIZE THE BUS 
10783 012700 005737 001252 SIZE: TST $DEVM sBR IF INITIALLY SET 
10784 012704 001060 BNE 4$ ‘BYPASS AUTO-SIZING 
10786 012706 012737 013610 000004 1$: MOV #INTSRV,ERRVEC 
10787 12714 012737 000300 000006 MOV #PR6,ERRVEC+2 
10789 012722 013737 001250 013514 MOV SBASE , TMP6 
10790 012730 012737 000001 013512 MOV #1,SFTREG 
10792 012736 005037 013616 2s: CLR INTFLAG 
10793 012742 005777 000546 TST aTMP6 sSEE IF THERE 
10794 012746 005737 013616 TST INTFLAG [GOT INTERRUPT? 
10795 012752 001003 BNE 3% 7BR IF YES (NO DEVICE) 
10796 012754 053737 013512 001252 BIS SFTREG,S$DEVM § :ELSE THERE, SET MAP 
10798 012762 062737 000010 013514 3$: ADD #10, TMP6 :G0 TO NEXT CHANNEL 
10799 012770 006337 013512 ASL SF TREG 
10800 012774 001360 BNE 2$ :BR IF MORE TO GO 
10802 012776 012737 000006 000004 MOV #6, ERRVEC : RESTORE 
10805 013004 005037 000006 CLR ERRVEC+2 
10805 013010 005737 001252 TST SDEVM ; ANYONE THERE? 
10806 013014 001014 BNE R IF YES 
10807 013016 TYPTXT <<CRLF>!NO DEV TO TEST!> 
10808 013044 000777 BR : ;LOOP HERE TILL PROBLEM FIXED 
10809 :& RESTART AT 200 
10810 013046 105737 001221 4$: TSTB  $USWR+1 [SEE IF ANY CONSOLE 
10811 013052 001434 BEQ 6$ ‘BR IF NONE 
10813 013054 01 MOV RO,-(SP) :SAVE RO 
10814 013056 113 001221 MOVB  $USWR+1,RO *GET CONSOLE DEVICE x2 
10815 013062 020027 000010 CMP RO, #10 
10816 013066 903005 BGT 5 TOO HI 
10817 013070 056037 013516 001252 BIS TABL1-2(RO), svevie® sSET CONSOLE BIT ON MAP 
10818 013076 012600 MOV (SP) +,RO sRESTORE RO 
10819 013100 000421 BR 
10821 013102 5$: TYPTXT <<CRLF>!CONSOLE IN $USWR WRONG!> 
10822 013140 000137 014362 JMP SEOP :START ALL OVER 
1082 STACK WILL RESET IN *LOOP' 
10824 013144 013737 001252 013502 6$: MOV SDEVA,MASK1 
10825 013152 013737 001252 013504 MOV $DEVM.MASK 
10826 013160 013737 001252 013506 MOV SDEVM. MASK 
10827 013166 013737 001252 013510 MOV SDEVM.MASK4 
10829 013174 042737 177760 013502 BIC #*C<17>,MASK1 ZSAVE ONLY MODULE 1 CHANNELS 
10830 013202 042737 177417 013504 BIC #°C<360>,MASK2 ; 
10831 013210 042737 170377 013506 BIC #*C<7400>,MASK3 : 
10832 013216 042737 007777 013510 BIC #°C<170000>, MASK4 : 4 


ac] 


—_-—- — —_—-- - —— - -- 





CNDLAAO DLV11-J_TEST 
CNDLAA.P11 23-DEC-82 
10834 013224 00623 
10835 0132 00623 
10836 013234 006237 
10837 013240 0062357 

10838 

10839 013244 000337 
10840 

10841 013250 000337 
10842 013254 006237 
10843 0132 006237 
10844 015264 006237 
10845 013270 006237 
10846 

10847 013274 

10848 

10849 013320 012700 
10850 013324 012737 
10851 013332 012737 
10852 

10853 013340 012037 
10854 013344 001001 
10855 013346 600441 
10856 

10857 013350 

10858 013370 104401 
10859 013374 

10860 

10861 013416 032737 
10862 013424 001402 
10863 013426 104401 
10864 

10865 013432 005237 
10866 013436 006237 
10867 013442 001365 
10868 013444 012737 
10869 

10870 013452 5237 
10871 013456 023727 
10872 013464 001325 
10873 013466 104401 
10874 015472 000207 
10875 

10876 013474 000061 
10877 013476 020040 
10878 

10879 013502 000000 
10880 013504 000000 
10881 013506 000000 
10882 013510 000000 
10883 013512 000000 
10884 013514 000000 
10885 013516 

10886 013520 000010 
10887 013522 000200 
10888 013524 004000 
10889 013526 100000 





013502 
000061 
000060 
013516 


013474 


000001 
013476 


013500 
013516 


000060 


013474 
013474 


001171 


000060 


013516 


013500 


000065 


B 8 
23-DEC-82 13:56 PAGE 188-1 
ROUTINE TO SIZE THE BUS 


SEQ 0092 | 


;RIGHT JUSTIFY MODULE 2 CHANNELS 
5 3 


: % 


ASR MASK 
ASR MASK 
ASR MASK 
ASR MASK 
SWAB MASK3 
SWAB MASK4 
ASR MASK4 
ASR MASK4 
ASR MASK4 
ASR MASK4 
TYPTXT <<CRLFO>!WILL TEST: !<CRLF>> 


MOV #MASK1 ,RO 


MOV #61,MODNUM 
MOV #60, CHNUM+2 
7$: MOV (RO) +, MSK 
BNE 8$ 
BR 11$ 
8$: TYPTXT <<CRLF>!MODULE !> 
TYPE eMODNUM 
TYPTXT <! CHANNEL !> 
9$: BIT #B1T0,MSK 
BEQ 10$ 
TYPE »CHNUM 
10$: INC CHNUM+2 
ASR MSK 
BNE 8 
MOV #60, CHNUM+2 
11$: INC MODNUM 
CMP MODNUM, #65 
BNE 
TYPE -SCRLF 
RTS PC 
MODNUM: .ASCIZ /1/ 
CHNUM: .ASCIZ / O/ 
MASK1: 0O 
MASK : 0 e 
MASKS: 0 3 
MASK4: 0O 3 
SFTREG: 0 
TMP6: 0 
MSK: 0 
TABL1: 10 
200 3 
4000 3 
100000 3 


sINIT MOD # 
INIT CHANNEL # 


3BR IF ANY THERE 
sELSE TRY NEXT MODULE 


BR _IF_NOT TESTING THAT CHANNEL 
sELSE TYPE IT 


sBUMP CHANNEL CTR 


3BR_ IF MORE TO CHECK 
sELSE RESET CH # 


;BUMP MOD # 
sALL DONE? 
:BR IF NO 


sELSE EXIT 


CONTAINS MODULE 1 CHANNELS 


4 


sSET SDEVM IF CONSOLE ON MODULE 1 


4 


mm a a i a es © egee eee — 


A ST ww -_—— 


4 















on 
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CNDLAA.P11 3-DEC=82 13:55 ROUTINE TO SIZE THE BUS SEQ 0093 


10890 
10891 
34 
1089 
ape -SBTTL ROUTINE TO TEST FOR CONSOLE DEVICE 
10896 013530 113737 001221 013606 TSTCON: MOVB SUSWR+1, THP7 3GET Coe INFO ONLY 
10897 013536 006237 013606 ASR TMP? RIGHT TIFY 
10898 013542 023737 013606 001206 cMP TMP7 ,SUNIT SEE IF YUNET UNDER TEST HAS CONSOLE 
10899 013550 00140 : BEQ BR IF YES 
10900 013552 005037 013604 CLR CONSOLE ELSE CLEAR STALE INFO 
1oG2 013556 000207 RTS PC , 


10903 013560 013737 001144 014156 1$: MOV $TKS ,ADDRESS sFORCE TTY ADDRESS 

10904 013566 012737 000060 014160 MOV #TKVEC, VECTOR : CTOR 

10905 013574 012737 000001 013604 MOV #TRUE , CONSOLE SET FLAG 

Oe 013602 000207 RTS PC 

10908 013604 000000 CONSOLE : 0 3FLAG, 1= Le A aa CONSOLE DEVICE 
10909 013606 000000 TMP7: 0 [HOLD CONSOLE # 

10910 

10911 

10912 

Haat -SBTTL INTSRV INTERRUPT SERVICE ROUTINE 

10919 FERRARA ARE RAE AREA ETRE AAA RAE RAA RARER EAERAAEAEAAERAEERER AERA EEE 

10920 3* THIS GLOBAL rey boss NOTHING BUT INCREMENT 

10921 3* ‘INTFLAG' EACH TIME IT IS CALLED. IT ASSUMES 

10922 :* THAT THE MAIN CALLING ROUTINE WILL KNOW WHAT 

10923 3* TO LOOK FOR. 

10924 Ferg in nada dtnrtn—tntigh ar ptt 

et 3 3 Pareny INTSRV ;GLOBAL INTERRUPT SERVICE ROUTINE 

10930 ; ;ADD 1 TO "INTERRUPT OCCURED’ FLAG 

10931 LET INTFLAG := INTFLAG + #1 


013610 

013610 

013610 

(7) 013610 005237 013616 INC INTFLAG 
013614 ENDSRV 3THAT’S ALL 
073614 000002 

013616 000000 


INTFLAG: 0 


ee Ce - - > --—-- 


| CNDLAAO DLV11-J_TEST 

'CNDLAA.P11 

| 10936 

| 10937 

| 10938 
10939 
10940 
10945 
10946 
10947 
10948 
10949 
10954 
10955 013620 013737 
10956 013626 013737 
10957 
10958 013634 023727 
10959 013642 001013 
10960 013644 005037 
10961 013650 005037 
10962 013654 012737 
10963 013662 005037 
10964 01 000137 
10965 
10966 013672 013700 
10967 013676 006300 
10968 013700 066037 
10969 013706 066037 
10970 013714 017037 
10971 
10972 013722 5037 
10973 013726 005737 
10974 013732 001004 
10975 013734 005237 
10976 013740 0137 
10977 
10978 013744 023727 
10979 013752 001452 
10980 013754 023727 
10981 013762 001021 
10982 
10983 013764 00503 
10984 013770 032737 
10985 013776 1004 
10986 014000 005237 
10987 014004 137 
10988 
10989 014010 012737 
10990 014016 005037 
10991 014022 000137 
oa 4 
10993 014026 013700 
10994 014032 006300 
10995 014034 066037 
10996 014042 066037 
10997 014050 036037 
10998 014056 001413 
10999 
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001250 
001244 


001206 
014166 
0 


001206 


014164 
000020 


001206 
013620 


000001 
014170 
013620 


014156 
014160 


000005 


001206 


000001 
000004 


001220 


014166 


EE A 
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INTSRV INTERRUPT SERVICE ROUTINE 


SEQ 0094 


-SBTTL ROUTINE TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS 


© RRORAEERERAAERAEEREEEEREREEEEEEAEEAAEAEAERAERAEAEEEEEEREREEREEKE 


1$: 


2$: 


3$: 


4$: 


THIS ROUTINE a ADRS 


TO POINT TO THE 


ADRS +2 TO 


DLV UNDER_ TEST, 
POINT TO THE VECTOR OF THE DLV11-J UNDER TEST. 


ADDRESS OF 
MOV SBASE ADDRESS 
MOV SVECT1, VECTOR 
CMP SUNIT, #5 
BNE 
CLR PHASE2 
CLR CHAN 
MOV fi - SUNIT 
CLR PICNT 
JMP 
MOV SUNIT,RO 
ASL RO 
ADD TABL 2-2(RO) » ADDRESS 
ADD TAB. 2=2(RO) .VECTOR 
MOV sree tROS MASK 
CLR CONSOLE 
TST MASK 
BNE 2$ 
INC $UNIT 
JMP CYCLE 
CMP PHASE2, #TRUE 
BEQ 
CMP CHAN, #4 
BNE 4$ 
CLR CHAN 
BIT #WRAP, SUSUR 
BNE 3$ 
INC SUNIT 
JMP CYCLE 
MOV #TRUE ,PHASE2 
CLR PICNT 
JMP CYCLE 
MOV CHAN, RO 
ASL RO 
ADD TABL 4 (RO) . ADDRESS 
ADD TABL4 (RO) .VEC 
BIT TABL5(RO) .MAS = 
BEQ 7$ 


© REREAREAAEREREREREREEEEEEEEEEEEAAAREREEAAEAEEEREREERAEREREREREREE 


DONE ALL MODULES? 
7BR IF NO 
;RE-INIT 


38 EXIT BACK TO ‘LOOP’ 
TSTACK WILL GET RESET THERE. 


sMULT BY 2 TO INDEX INTO TABLES 
TADD MODULE OFFSET 
[ADD VECTOR OFFSET 

[STORE CHANNELS IN "MASK" 

:ANY CHANNELS TO BE TESTED? 
SELSE BUMP UNIT # 

:TRY AGAIN 

sDOING PHASE 2? 


3BR IF Y 
sel SS DONE ALL CHANNELS? 
BR IF NO 


sELSE BACK TO 0 
300 OING DATA WRAP TESTS? 


BR IF Y 
TELSE 60 TO NEXT UNIT, NO PHASE 2 
& DO IT 


3GO TO PHASE 2 TESTING 


sMULT BY 2 U OFFSET TABLE 


=a 


tn Te 


ee ee 


coo ee 


} 
' 
' 
! 


;CNDLAAO DLV11-J_TEST 
/CNDLAA.P11 


| 11000 014060 023727 

| 11001 014066 001002 
1100 014070 004737 
11004 014074 005237 
11005 014100 012701 
11006 014104 000207 
11007 
11008 014106 005237 
11009 014112 000137 
11010 
11011 014116 000000 
11012 014120 000040 
11013 014122 000100 
11014 014124 000140 
11015 
11016 014126 013502 
11017 014130 013504 
11018 014132 013506 
11019 014134 013510 
11020 
11021 014136 0000 
11022 014140 00001 
11023 014142 000020 
11024 014144 000030 
11025 
11026 014146 00000 
11027 014150 000002 
11028 014152 000004 
11029 014154 000010 
11030 
11031 014156 000000 
11032 014160 000000 
11033 014162 000000 
11034 014164 000000 
11035 014166 000000 
11036 014170 000000 
11037 
11038 
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014164 000003 
013530 


014164 
014156 


E 8 
23-DEC-82 13:56 PAGE 189-1 
ROUTINE TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS 


TABL3: 
TABL4: 
TABL5: 
ADDRESS: 
VECTOR: 
MASK: 


CHAN: 
PHASE2: 
PICNT: 


cup CHAN, #3 31S 1 CHAN 3? 
JSR PC, TSTCON TELSE SEE IF ITS THE CONSOLE 
INC CHAN :BUMP CHANNEL CTR FOR NEXT TIME 
MOV #ADDRESS ,ADRS 
RTS PC :GO TO PHASE 1 TESTS 
INC CHAN 
JMP CYCLE :TRY AGAIN 
0 ZOFFSET FOR MODULE 1 
40 ; 2 
100 : 3 
140 2 4 
MASK1 ;MODULE %. CHANNEL DATA 
MASK2 3 2 
MASK3 3 3 
MASK4 3 4 
0 sCHANNEL O OFFSET 
10 3 1 
20 3 2 
30 3 3 
ITO :B1T TO TEST CHANNEL 0 PRESENT 
BIT2 : 2 
BITS ; 3 
0 
0 
0 
9 
0 :CTR TO PRINT "PHASE 1° ONLY ONCE 


SEQ 0095 


co 


F 
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'CNDLAA.P11 3=DEC-82 13:55 ROUTINE TO SET UP FOR NEXT MODULE/CHANNEL ADDRESS SEQ 0096 
| 11040 
11041 
11042 014172 ROUTINE MYTYPE 
(2) 014172 MYTYPE: ; 
11043 014172 TYPTXi: <<CRLF>*TEST # *> 
11044 014212 TYPOCT S$TESTN 
11045 014220 TYPTXT <#,ERROR # *> 
11046 014240 113737 001114 001176 MOVB SITEMB,SFATAL 3; APT FATAL ERROR NUMBER 
11047 014246 TYPOCS S$FATAL 
11048 014256 TYPTXT <#,PC = *> 
11049 014274 TYPOCT $ERRPC 
11050 014302 TYPTXT <#,CSR: *> 
11051 014320 TYPOCT DLADD 
11052 014326 TYPTXT <*,VECTOR: *> 
11053 014346 TYPOCT DLVEC 
11054 014354 104401 001171 TYPE SCRLF 
11055 014360 ENDRTN 
(3) 014360 $255: 
(3) 014360 $256: 
{o> 014360 000207 RTS PC 


H =’ 
— 
“i 


G 8 i 
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CNDLAA.P11 23-DEC-82 13:55 TINE = MYTYPE SEQ 0097 


11062 
11063 - .SBTTL END OF PASS ROUTINE 
(2) Coameat td a wat eee 
(1) :S INCREMENT ThE PASS NUMBER ($PASS 
(1) is INDICATE END-OF =PROGRAM AFTER ; PASSES THRU THE PROGRAM 
(1) [*TYPE "END PASS #XXXXX'’ (WHERE XKXXX IS A DECIMAL NUMBER) 
(1) se]F THERES A MONIT OR GO TO IT 
(1) :e]F THERE ISN'T JUMP TO LOOP 
(1) 014362 SEOP: 
(1) 014362 000004 SCOPE 
(1) 014364 005037 001102 CLR STSTNM zs ZERO THE TEST NUMBER 
(1) 014370 005037 001160 CLR STIMES 7:ZERO THE NUMBER OF ITERATIONS 
(1) 014374 005237 001202 INC SPASS ;;INCREMENT THE PASS NUMBER 
(1) 014400 042737 100000 001202 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
(1) 014406 005327 DEC (PC)+ ? LOOP? 
(1) 014410 000001 SEOPCT: .WORD 1 
(1) 014412 003022 BGT SDOAGN zi YES 
(1) 014414 012737 MOV (PC)+,a(PC)+  ::RESTORE COUNTER 
(1) 014416 000001 SENDCT: .WORD 1 
(1) 014420 014410 $EOPCT 
(1) 014422 104401 014467 TYPE SENDMG :TYPE "END PASS #"° 
(2) 014426 013746 001202 MOV $PASS,-(SP) : SAVE SPASS FOR TYPEOUT 
(2) 014432 104405 TYPDS :GO TYPE==DECIMAL ASCII WITH SIGN 
(1) 014434 104401 014464 TYPE  ,$ENULL + TYPE A NULL CHARACTER 
(1) 014440 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
(1) 014444 001405 BEQ SDOAGN ::BRANCH IF NO MONITOR 
(1) 014446 000005 RESET S:CLEAR TH L 
(1) 014450 004710 SENDAD: JSR PC, (RO) 2:60 TO 
(1) 014452 0240 NOP 33 
(1) 014454 000240 NOP =: FOR 
(1) 014456 000240 NOP ::ACT11 
(1) 014460 SDOAGN: ‘ 
(1) 014460 000137 JMP a(Pc)+ RETURN 
(1) 014462 001732 SRTNAD: .WORD LOOP 
(1) 
(1) 014464 377 377 000 $ENULL: .BYTE -1,-1,0 s:NULL CHARACTER STRING 
(1) 014467 015 042412 042116 $ENDMG: .ASCIZ <15><12>/END PASS #/ 
(1) 014474 050040 051501 020123 
(1) 014502 000043 


CNDLAAO DLV11-)_TEST MACY11 30(1046) a > 82 13:56 PAGE 192" 


CNDLAA.P11 23-DEC-82 13:55 END OF PASS ROUTINE SEQ 0098 
| 13969 
11066 -SBTTL TYPE ROUTINE 


pAAeeeeeeeeeeeKeNeReeeeedeeeeeeeeAeeReeeeeeAeeereeeeteteneeeees 

s*ROUTINE TO iYPE ASCIZ a ear MESSAGE MUST TERMINATE WITH A 0 aft F 

3 *THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS He A_LINE FEED. 
3*NOTE1: SNULL TAINS THE ye Sg A "9 BE USED AS T HE FILLER CHARACTER. 


(1) 
(2) 
(1) 
() CON 
(1) s *NOTE2: SFILLS CONTAINS THE NUMBER OF FIL rER CHARACTERS REQUIRED. 
| (1) ; NOTES: SFILLC CONTAINS THE CUABACTER TO FILL AFTER. 
| 7* 
Fo? a. *CALL: 
' @) 31) USING A TRAP INSTRUCTION 
(1) a TYPE §_,MESADR s:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 
1 a ie TYPE 
i 6) 3 MESADR 
| a 
(1) 014504 105737 001157 $TYPE: TSTB  $TPFLG zz1S THERE A TERMINAL? 
(1) 014510 100002 @PL i$ ::BR IF YES 
(1) 014512 000000 HALT 3HALT HERE IF NO TERMINAL 
(1) 014514 000430 BR 3$ : LEAVE 
(1) 014516 010046 1$: MOV RO,-(SP) ZSAVE RO 
(1) 014520 017600 000002 MOV a2(SP),RO :iGeT ADDRESS | OF ASCIZ STRING 
(1) 014524 122737 000001 001214 CMPB = WAPTENV,SENV = ;RUNNING IN APT MODE 
(1) 014532 001011 BNE :NO,GO CHECK. FOR APT CONSOLE 
(1) 014534 132737 000100 1215 BITB §§§ #APTSPOOL,SENVM $;SP60L L MESSA cE To APT 
(1) 014542 001405 BEQ 6 CHECK FOR CONSOLE 
(1) 014544 010037 014554 MOV RO,61$ ::SE P+ Gp MESSAGE "ADDRESS FOR APT 
(1) 014550 004737 015550 JSR PC; SATY3 33 SPOOL MESSAGE 10 A 
(1) 014554 000000 61$:  .WORD 0 ::MESSAGE ADDRESS 
(1) 014556 132737 000040 001215 62$:  BITB #$#APTCSUP,SENVM ::APT CONSOLE SUPPRESSED 
(1) 014564 001003 BNE 60$ ::YES,SKIP TYPE OUT 
(1) 014566 112046 2s: MOVB = (RO) +, = (SP) : PUSH CHARACTER TO BE TYPED ONTO STACK 
(1) 014570 001005 BNE 4$ +:BR IF IT ISN'T THE TERMINATOR 
(1) 014572 005726 TST (SP)+ 331F TERMINATOR POP IT OFF THE STACK 
(1) 014574 012600 60$: MOV (SP)+,RO sRESTORE RO 
(1) 014576 062716 000002 3$: ADD #2, (SP) 3 ADJUST RETURN PC 
(1) 014602 000002 RTI URN 
(1) 014604 122716 000011 4$: CMPB Ss #*HT, (SP) + BRANCH IF <HT> 
(1) 014610 001430 BEQ 
(1) 014612 122716 000200 CMPB ss @CRLF, (SP) :;BRANCH IF NOT <CRLF> 
(1) 014616 001006 BNE 5$ 
(1) 014620 005726 TST (SP)+ ::POP <CR><LF> EQUIV 
(1) 014622 104401 YPE :: TYPE A CR AND LF 
(1) 014624 001171 SCRLF 
(1) 014626 105037 014762 CLRB  $CHARCNT z3CLEAR CHARACTER COUNT 
(1) 014632 000755 BR 2$ :GET NEXT CHARACTER 
(1) 014634 004737 014716 5$: JSR PC ,STYPEC 2360 TYPE THIS CHARACTER 
(1) 014640 123726 001156 6$: CMPB Ss SILL, (SP)+ 1S IT TIME FOR FILLER CHARS. ? 
(1) 014644 001350 BNE 2$ t:1F NO GO GET NEXT 
(1) 014646 013746 001154 MOV SNULL,-(SP) 3GET # OF FILLER CHARS” “NEEDED 
(1) 014652 105366 000001 7$: DECB. —s«1( SP) i DOES A NULL NEED TO BE TYPED? 
(1) 014656 002770 BLT [BR IF NO=--GO POP THE NULL OFF OF STACK 
(1) 014660 004737 014716 JSR PC ,STYPEC $:G0 TYPE A NULL 


| 
| 
| 
| 
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+ (1) 014664 105337 
014670 000770 


7 
7? 
7 
3 
726 
7 
7 
3 


m™ 
“N 
nN 
~m 
—- IO 
Ss 
vi 


Ct a te hte ht hat ht ce, ht hat, Set fc, ht a ce, ca a ca a a, et a at 
ee ee ee et a ee ee a et ee ee ee ee ee a ee ae la ae eae ae 
as 
™~ 
N 
nm 
= 
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13:55 
014762 


000040 
014716 
000007 
164226 
000002 
000015 
014762 
000012 


014762 


164220 
000002 


000002 


23-DEC-82 13:56 PAGE 19251 


TYPE ROUTINE 
DECB SCHARCNT 
BR 7$ 


sHORIZONTAL TAB PROCESSOR 


::D0 NOT COUNT AS A COUNT 
; LOOP 


8$: MOVB REPLACE TAB WITH SPACE 
9$: JSR Bc, $type EC ety PE A SPACE 
B1Te #7. $CHARCNT RANCH IF NOT AT 
TST (SP)+ : pop SPACE OFF STACK 
BR $ t:GET NEXT CHARACTER 
STYPEC: TSTB a$TPS t:WAIT UNTIL PRINTER IS READY 
BPL STYPEC 
MOVB  2(SP),a$TPB z;LOAD CHAR TO BE TYPED INTO DATA REG. 
CMPB #cR,2(SP) 3318 CHARACTER A A CARRIAGE RETURN? 
CLR SCHARCNT {i YES=CLEAR CHARACTER COUNT 
1$: CMPB aL se csP) t:1S CHARACTER A LINE FEED? 
$TY ::BRANCH IF YES 


8 (PEs. 
SCHARCNT: WORD 0 
STYPEX: RTS PC 


A ee 


3;COUNT THE CHARACTER 
: CHARACTER COUNT STORAGE 


SEQ 0099 


— 


J 8 
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CNDLAA.P11 33-DEC~82 13:55 TYPE ROUTINE SEQ 0100 
11068 
11069 -SBTTL TTY INPUT ROUTINE 


J FARRAR AAERERERERAE EEE AAEEAAAEREAAERERAEREREEEAEAEAEREKEEEE ERS 


-ENABL LSB 


PURReReeAAAeAAeeeAeeee ee AA eee AeA eAAe eee eeeeeeteeeneeeteeeereee 
+ SSOF TWARE SWITCH REGISTER CHANGE ROUTINE. 

S*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 

7*SERVICE THE TEST FOR CHANGE a... SOFTWARE SWITCH REGISTER TRAP CALL 


SS SASS a = 


(1) 
(2) 

(1) 

(1) 

(1) 

(1) 

(2) 

(1) 

ah 

(1) **WHEN OPERATING IN TTY FLAG MODE. 

(1) 014766 022737 000176 001140 $CkSWR: CMP #SWREG, SWR 3318 THE SOFT=SWR SELECTED? 
(1) 014774 001074 BNE 5$ RANCH IF NO 

(1) 014776 105777 164142 TSTB © a$TKS 3 CHAR THERE? 

(1) 015002 100071 BPL 15$ :1F NO, DON' T gait AROUND 

(1) 015004 117746 164136 MOVB  a$TKB,-(SP) tI SAVE THE CHA 

(1) 015010 042716 177600 BIC #°C17? (SP) + STRIP-OFF tHe ASCII 

(1) 015014 022726 000007 CMP 7, (SP5+ ::1S IT A CONTROL G? 

(1) 015020 001062 BNE " 33ND» RETURN TO USER 

(1) 015022 123727 001134 000001 CMPB = $AUTOB, #1 ARE WE RUNNING IN AUTO~MODE? 
(1) 015030 001456 BEQ 15$ +:BRANCH IF YES 

(1) 015032 104401 015513 TYPE  ,$CNTLG z:ECHO THE CONTROL=G (4G) 

(1) 015036 104401 015520 SGTSWR: TYPE  ‘S$MSWR [TYPE CURRENT CONTENTS 

(2) 015042 013746 000176 MOV SWREG,-(SP) [SAVE SWREG FOR TYPEOUT 

(2) 015046 104402 TYPOC 3:60 TyPE=-OC TAL ASCITCALL DIGITS) 
(1) 015050 104401 015531 TYPE <SMNEW ::PROMPT FOR NEW SWR 

(1) 015054 005046 19$: CLR =(SP) S:CLEAR COUNTER — 
(1) 015056 005046 CLR -(SP) 

(1) +: THE NEW SWR 

(1) 015060 105777 164060 7$: STB. 4s aSTKS z:CHAR THERE? 

(1) 015064 100375 BPL 7$ ::IF NOT TRY AGAIN 

(1) 015066 117746 164054 MOVB = a$TKB, =(SP) ::PICK UP CHAR 

(1) 015072 042716 177600 BIC #°C177, (SP) S:MAKE IT 7-BIT ASCII 

> 

(1) 015076 021627 000025 9$: CMP (SP) ,#25 zz1S IT A CONTROL-U? 

(1) 015102 001005 BNE 10$ +:BRANCH IF NOT 

(1) 015104 104401 015506 TYPE  ,$CNTLU 7:YES, ECHO CONTROL-U (*U) 

(1) 015110 062706 000006 20$: ADD #6,SP t: IGNORE PREVIOUS INPUT 

(1) 015114 000757 : BR 19$ t:LET'S TRY IT AGAIN 

(1) 

(1) 015116 021627 000015 10$: CMP (SP) #15 za1S IT A <CR>? 

(1) 015122 001022 BNE 16$ [BRANCH IF NO 

(1) 015124 005766 000004 TST 4(SP) iiYES. IS IT THE FIRST CHAR? 
(1) 015130 001403 BEQ 11$ ‘BRANCH IF YES 

(1) 015132 016677 000002 164000 MOV 2(SP) ,aSwR [SAVE NEW SWR 

(1) 015140 706 000006 11$: ADD 46,SP tiCLEAR UP STACK 

(1) 015144 104401 001171 14$: TYPE SCRLF 33ECHO <CR> AND < 

(1) 015150 123727 001135 000001 CMPB Ss S$ IINTAG, #1 RE-ENABLE TTY xBD. INTERRUPTS? 
(1) 015156 001003 BNE 15$ S:BRANCH IF NOT 


mn nc ee oe 


| sab sislapnesiniai 

8 
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| 11 “82 13:55 INPUT ROUTINE SEQ 0101 
| (1) 015160 fs 000100 163756 MOV #100, aSTKS i RE-ENABLE TTY KBD INTERRUPTS 
| (1) 015170 004737 014716 16$: JSR PC STYPEC ccpelee CHAR 
(1) 015174 021627 000060 CMP (SP) ,# s:CHAR < 0? 
(1) 015200 0024 9 BLT 8S ::BRANCH IF YES 
(1) 015202 021627 000067 CMP (SP) ,#67 T:CHAR > 7? 
(1) 015206 003015 BGT 18$ : SBRANCH IF YES 
| (1) 015210 042726 000060 BIC #60, (SP)+ S:STRIP-OFF ASCII 
| (1) 015214 005766 000002 TST 2(SP) t:I1S THIS THE FIRST CHAR 
(1) 015220 00140 BEQ 17$ 3 ]BRAN CH IF YES 
(1) 015222 006316 ASL (SP) NO, SHIFT PRESENT 
(1) 015224 006316 ASL (SP) t: ‘CHAR OVER TO MAKE 
(1) 015226 006316 ASL (SP) t: ROOM FOR NEW ONE. 
(1) 015230 005266 000002 17$: INC 2(SP) S:KEEP COUNT OF CHAR 
(1) 015234 056616 177776 BIS =2(SP), (SP) t:SET IN NEW CHAR 
(1) 015240 000707 BR 3:GET THE NEXT ONE 
(1) 015242 104401 001170 18$: ‘TYPE SQUES T:TYPE 2<CR><LF> 
(1) 015246 000720 BR. 208 :: SIMULATE CONTROL-U 
(1) .DSABL LSB 
BO 
(2) FERRARA EEE EEE EEEEEEE EEE EEEAEEEEEREEEEEEAEAEEEREEREREEEEREE 
) seTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
(1) : RDCHR z:INPUT A SINGLE CHARACTER FROM THE TTY 
(1) ba RETURN HERE T:CHARACTER IS ON TACK 
a3 = scWITH PARITY BIT STRIPPED OF F 
(1) ' 
(1) 015250 011646 SRDCHR: MOV (SP) ,=(SP) sPUSH DOWN THE PC 
(1) 015252 016666 000004 000002 MOV 4s P}. 2(SP) :ESAVE THE PS 
(1) 015260 105777 163660 1$: TST8 = aS TK S:WAIT FOR 
(1) 015264 100375 BPL 1$ tA CHARACTER 
(1) 015266 117766 163654 000004 MOVB  a$TKB,4(SP) 3 SREAD THE TTY 
(1) 015274 042766 177600 000004 BIC bt 4(SP) $:GET RID OF JUNK IF ANY 
(1) 015302 026627 000004 000023 CMP 4(SP) #23 t1$ IT A CONTROL-S? 
(1) 015310 001013 BNE Et; 3 IBRANCH IF NO 
(1) 015312 105777 163626 2$: TSTB = aS TKS WAIT FOR A CHARACTER 
(1) 015316 100375 BPL 2$ S:LOOP UNTIL ITS THERE 
(1) 015320 117746 163622 MOVB  a$TKB,-(SP) :3GE T CHARACTER 
(1) 015324 042716 177600 BIC #°C177, (SP) MAKE iT 7-BIT ASCII 
(1) 015330 022627 000021 CMP (SP)+, #21 i318 IT A CONTROL-0? 
(1) 015334 001366 BNE $ S31F NOT DISCARD IT 
(1) 015336 000750 BR 1$ YES, RESUME 
(1) 015340 026627 000004 000140 3s: CMP 4(SP),#140 IIS ir supper CASE? 
(1) 015346 002407 BLT 4$ 3 7BRAN YES 
(1) 015350 026627 000004 000175 CMP 4(SP) #175 1S IT Mi SPECIAL CHAR? 
(1) 015356 003003 BGT 4$ S:BRANCH IF YES 
(1) 015360 042766 000040 000004 BIC #40,4(SP) S:MAKE IT UPPER CASE 
(1) 015366 000002 4$: RTI 7:G0 BACK TO USER 
(2) FERRARA AEEAEEEEAAAEREE AE EERAAAEAEEEEAERERAEREEEEEEREEAAEREEEE 
(1) geTHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
(1) te LIN z:INPUT A STRING FROM THE T 
(1) * RETURN HERE SZADDRESS OF FIRST OHARAETER "unLL BE ON THE STACK 
(1) te [: TERMINATOR WILL BE A BYTE OF ALL O°S 
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| 
(1) 
(1) 015379 910346 SRDLIN: MOV _—R3, = (SP) SAVE R3 
(1) 015372 91270 015476 1$: MOV #STTYIN,R3 ::GET ADDRESS 
(1) 013576 022703 015506 2$: CMP SS TTYINSE, RS i SBUFFER FULL? 
(1) 015402 101405 BLOS 4$ YES 
(1) 015406 104410 RDCHR 7:60 READ ONE CHARACTER FROM THE TTY 
(1) 015406 112613 MOVB P)+,(R3) 33GET CHARACTER 
(1) 015410 122713 000177 10$:  CMPB $77" (R3) ::1S IT A RUB 
(1) 015414 001003 BNE 33SKIP IF NOT 
(1) 015416 104401 001170 4$: TYPE SQUES ZTYPE A °?° 
(1) 015422 000763 BR SICLEAR THE BUFFER AND LOOP 
(1) 015424 111337 015474 3$: MOVB = (R3),,98 ::ECHO THE CHARACTER 
(1) 015430 104401 015474 i. eee 
(1) 015634 122723 015 CMPBs#'15,, (R3)¢ ::CHECK FOR RETURN 
(1) 015440 001556 BNE *:LOOP IF NOT RETURN 
(1) 015442 105063 177777 CLRB 2s = 17(R3) S:CLEAR RETURN (THE 15) ‘ 
(1) 015446 104401 001172 TYPE F 3TYPE A LINE FEED 3 
(1) 015452 012603 MOV (SP)+,R3 TRESTORE R3 
(1) 015454 011646 MOV (SP) ,<(SP) i ZADJUST | THE STACK AND PUT ADDRESS OF THE 
(1) 015456 016666 000004 000002 MOV 4(SP5 ,2¢SP) t: FIRST ASCII CHARACTER ON IT 
(1) 015464 012766 015476 000004 MOV #STTYIN,4(SP) 
(1) 015472 000002 RTI :RETU 
(1) 015474 000 9$: .BYTE 0 £7 STORAGE FOR ASCII CHAR. TO TYPE 
(1) 015475 000 -BYTE 0 3 TERMINATOR 
(1) 015476 000010 STTYIN: .BLKB 8. RESERVE 8 BYTES FOR TTY INPUT 
(1) 015506 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12> 33CONT ROL "U'’ 
(1) 01551 136 006507 000012 $CNTLG: .ASCIZ /*G/<15><12> :CONTROL ''G’’ 
(1) 913520 005015 053523 020122 $MSWR: .ASCIZ <15><12>/SWR = /° 
(1) 015526 020075 000 
(1) 015531 040 047040 053505 $MNEW: .ASCIZ / NEW = / 
(1) 015536 036440 000040 
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11071 
Nor .SBTTL APT COMMUNICATIONS ROUTINE 

(2) . Z SAEEATAAEAAAAAEAAEAAAAATAEAEAAAAAAEAAEAAARAAEAAREAEAREAAEEAEAREEEREEEEE 
(1) 015542 112737 000001 016006 $ATY1: MOVB 4#1,$FFL ::TO REPORT FATAL ERROR 
(1) 015550 112737 000001 016004 $ATY3: MOVB #1,S$MFLG ::T0 TYPE A MESSAGE 
(1) 015556 000403 BR SATYC 
(1) 015560 112737 000001 016006 SAT YG: MOVB #1,$FFLG ::TO ONLY REPORT FATAL ERROR 
(3) 015566 010046 MOV RO,=(SP) ::PUSH RO ON STACK 
(3). 015570 01014 MOV R1,-(SP) +:PUSH R1 ON STACK 
(1) 015572 105737 016004 TSTB © $MFLG ‘SHOULD TYPE A MESSAGE? 
(1) 015576 001450 BEQ 5$ s:IF NOT: BR 
(1) 015600 122737 000001 001214 CMPB #APTENV,SENV  ;;O0PERATING UNDER APT? 
(1) 015606 001031 BNE z21F NOT: 
(1) 015610 132737 000100 001215 BITB §§ #APTSPOOL,SENVM ::SHOULD SPOOL MESSAGES? 
(1) 015616 001425 BEQ 33 T: 
(1) 015620 017600 000004 MOV a4(SP),RO ::GET MESSAGE ADDR. 
(1) 015624 062766 000002 000004 ADD #2,4(SP) 3;BUMP RETURN ADDR. 
(1) 015632 005737 001174 1$: TST SMSGTYPE z:SEE IF DONE W/ LAST XMISSION? 
(1) 015636 001375 BNE 1$ t:1F NOT: WAIT 
(1) 015640 010037 001210 MOV RO, $MSGAD 
(1) :;PUT ADDR IN MAILBOX 
(1) 015644 105720 2$: TSTB 30s (RO) + zzFIND END OF MESSAGE 
(1) 015646 001376 BNE 
(1) 015650 163700 001210 SUB $MSGAD RO ::SUB START OF MESSAGE 
(1) 015654 006200 ASR RO 7:GET MESSAGE LNGTH IN WORDS 
(1) 01565 910057 001212 MOV RO, $MSGLGT ¢:PUT LENGTH IN MAILBOX 
(1) 015662 012737 000004 001174 MOV #4; SMSGTYPE S:TELL APT TO TAKE MSG. 
(1) 015670 000413 BR 
(1) 015672 017637 000004 015716 3S: MOV a4(SP),4$ z:PUT MSG ADDR IN JSR LINKAGE 
(1) 015700 062766 000002 000004 ADD #2 -:BUMP RETURN ADDRESS 
(3) 015706 013746 177776 MOV 177776,-(SP) | ;;PUSH 177776 ON STACK 
(1) 015712 004737 014504 SR PC, $TYPE [:CALL TYPE MACRO 
(1) 015716 000000 4$: WORD 
(1) 015720 5$: 
(1) 015720 105737 016006 10$: STB  $FFLG z:SHOULD REPORT FATAL ERROR? 
(1) 015724 001416 BEQ 12$ 3 : 
(1) 015726 005737 001214 TST SENV ::RUNNING UNDER APT? 
(1) 015732 001413 BEQ 12$ t:1F NOT: BR 
(1) 015734 005737 001174 11$: ‘TST SMSGTYPE S: FINISHED LAST MESSAGE? 
(1) 015740 001375 BNE 11$ S:IF NOT: WAIT 
(1) 015742 017637 000004 001176 MOV a4(SP),$FATAL 3;GET ERROR # 
(1) 015750 062766 000002 000004 ADD #2,4(SP) :;BUMP RETURN ADDR. 
(1) 015756 005237 001174 INC SMSGTYPE s:TELL APT TO TAKE ERROR 
(1) 015762 105037 016006 12$:  CLRB  $FFLG S:CLEAR FATAL FLAG 
(1) 015766 105037 016005 CLRB ss SLFLG ‘CLEAR LOG F 
(1) 015772 105037 016004 CLRB 3s $MFLG [:CLEAR MESSAGE FLAG 
(3) 015776 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 016000 012600 MOV (SP)+,RO ::POP STACK INTO RO 
(1) 016002 000207 RTS PC + :RETURN 
(1) 016004 000 SMFLG: .BYTE 0 ::MESSG. FLAG 
(1) 016005 000 SLFLG: .BYTE 0 
(1) :LOG FLAG 
(1) 016006 000 SFFLG: .BYTE 0 Z:FATAL FLAG 
(1) 016010 EVEN 
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be 2 ¢ -SBTTL ERROR HANDLER ROUTINE 
(2) URRAAARAAARA AERA REEAATTAAAEEAAAEAAAEAERETAeK eee Tee eee eeeee 
(1) TATHIS ROUTINE WILL_ INCREMENT THE ERROR ‘LAG AND THE ERROR COUNT, 
(1) S*SAVE THE ERROR ITEM NUMBER AND THE ADDPESS OF THE ERROR CALL 
(1) 7*AND GO TO MYTYPE ON ERROR 
sy isTHE SWITCH wh 5 PROVIDED BY THIS ROUTINE ARE: 
(1) 3*SW13=1 INHIBIT ERROR TYPEOUTS 
(1) 3*SW10=1 BELL ON ERROR 
(1) 3*Sw09=1 LOOP ON ERROR 
(1) 3 *CALL 
) ** ERROR N 3;ERROR=EMT AND N=ERRO™ ITEM NUMBER 
(1) 016010 SERROR: 
(1) 016010 104407 CKSWR ss Test FOR a IN SOF T=-SWR 
(1) 016012 105237 001103 7$: INCB SERFLG 4a THE ERR 
(1) 016016 001775 BEQ 7$ ONT LET THE FLAG GO TO ZERO 
(1) 016020 013777 001102 163114 MOV STSTNM,@DISPLAY # DISPLAY 3.4 ee AND ERROR FLAG 
(1) 016026 032777 002000 163104 BIT #81T10,aSWR + BELL ON ERR 
(1) 016034 001402 BEQ ‘$ NO = SKIP 
(1) 016036 104401 001164 TYPE sort 3 RING oo 
(1) 016042 005237 001112 1$: INC $ERT 3 COUNT THE NUMBER OF ERRORS 
(1) 016046 011637 001116 MOV (SP)  SeRRPC SiGer ADDRESS OF ERROR INSTRUCTION 
(1) 016052 162737 000002 00113 SUB 2 SERRPC 
(1) 016060 117737 163032 001114 MOVB SSERRPC. SITEMB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
(1) 016066 032777 020000 163044 BIT #81113, aSWR ssSKIP TYPEOUT IF SET 
(1) 016074 001004 BNE 20 P TYP S 
(1) 016076 004737 014172 JSR PC ,MYTYPE 3:G0 TO USER ERROR ROUTINE 
(1) 016102 104401 001171 TYPE oSCRLF 
(1) 016106 208: 
(1) 016106 122737 000001 001214 CMPB #APTENV, SENV 3 sRUNNING IN APT MODE 
(1) 016114 001007 BNE 23NO, SKIP APT ERROR REPORT 
(1) 016116 113737 001114 016130 MOVB Ms Fe ;SET ITEM NUMBER AS ERROR NUMBER 
(1) 016124 004737 015560 JSR PC, SAT ;7REPORT FATAL ERROR TO APT 
(1) 016130 21$: -BYTE 0 
(1) 016131 000 BYTE 0 
(1) 016132 000777 22$: BR 22$ 3;APT_ERROR LOOP 
(1) 016134 005777 163000 2$: TST aSWR HALT ON ERROR 
(1) 016140 100002 BPL 3$ 3:SKIP IF CONTINUE 
(1) 016142 000000 HALT 3sHALT ON E : 
(1) 016144 104407 CKSWR ay 3 FOR CHANGE IN SOF T-SWR 
(1) 016146 032777 001000 162764 3$: BIT #81T09 ,aSwR + LOOP a ERROR SWITCH SET? 
(1) 016154 001402 BEQ R IF NO 
(1) 016156 013716 001110 MOV SLPERR, (SP) FUDGE RETURN FOR LOOPING 
(1) 016162 005737 001162 4$: TST $ESCAPE soe FOR AN ESCAPE ADDRESS 
(1) 016166 001402 BEQ 5$ NONE 
$4 get 013716 001162 S$ MOV SESCAPE , (SP) + FUDGE RETURN ADDRESS FOR ESCAPE 
(1) 016174 022737 014450 000042 CMP #SENDAD ,a#42 3zACT=-11 AUTO-ACCEPT? 
(1) 016202 001001 BNE 6$ 3 BRANCH IF NO 
(1) 016204 000000 HALT 33 YES 
(1) 016206 6$: 
(1) 016206 000002 RTI 3 RETURN 
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11077 
| 11078 .SBTTL SCOPE HANDLER ROUT INESTAR 
1 a [*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(1) ‘AND LOAD THE Test SMURBERCSTS TH INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) [*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(1) :*THE SWITCH SPT IONS PROVIDED BY THIS ROUTINE ARE: 
(1) *SWi4= LOOP ON TEST 
(1) :*SW11=1 INHIBIT ITERATIONS 
(1) :*SWO9=1 LOOP ON 
(1) :*SWO8=1 LOOP ON TEST IN SWR<7:0> 
(1) 3 *CALL 
Yi 3* SCOPE 3: SCOPE=IOT 
(1) 016210 SSCOPE: 
(1) 016210 104407 CKSWR ziTEST FOR CHANGE IN, SOF T-SUR 
(1) 016212 032777 040000 162720 1$: BIT #B1T14,aSWR 33LOOP ON PRESENT TEST 
(1) 016220 001114 BNE SOVE “VES IF 2 
(1) ;HHANHSTART OF CODE FOR THE XOR TESTERS#AEA 
(1) 016222 000416 $xTSTR: BR a$ iif RUNNING ON THE SXOR’. TESTER CHANGE 
(1) THIS INSTRUCTION TO A ‘NOP’ (NOP=240) 
(1) 016224 013746 000004 MOV a#ERRVEC, gu csP? EEEAVE, THE CONTENTS OF THE ERRON VECTOR 
(1) 016230 012737 016250 000004 MOV #5$,a¥ERRVEC = 3 SET TIMEOUT 
(1) 016236 005737 177060 TST a#177060 othe. OUT ON XOR? 
(1) 016242 012637 000004 MOV (SP) +, a#ERRVEC ;;RESTORE THE ERROR VECTOR 
(1) 016246 63 BR SSVLAD 33 THE NEXT TEST 
(1) 016250 022626 5$: CMP (SP)+,(SP)+ CL PEAR THE STACK AFTER A TIME OUT 
(1) 016252 012637 000004 MOV (SP) +, a#ERRVEC ; RESTORE THE ERROR VECTOR 
(1) 016256 000423 | BR “LOOP ON THE PRESENT TEST 
(1) 016260 6$:;4AHHHEND OF CODE FOR THE XOR  TESTERMAMAA 
(1) 016260 032777 000400 162652 BIT #81T08,aSwR 3LOOP ON SPEC. TEST? 
(1) 016266 001404 BEQ 2 IF NO 
(1) 016270 127737 162644 001102 CMPB ss @SWR, STSTNM t:0N THE RIGHT TEST? SWR<7:0> 
(1) 016276 001465 BEQ SOVER ::BR IF Y 
(1) 016300 105737 001103 2$: TSTB  $ERFLG SHAS AN ERROR OCCURRED? 
(1) 016304 001421 BEQ 33 I 
(1) 016306 123737 001115 001103 CMPB  $ERMAX.SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 016314 101015 BHI ::BR IF NO 
(1) 016316 032777 001000 162614 BIT #B1T09,aSwWR ‘LOOP ON ERROR? 
(1) 016324 001404 BEQ 4 7:BR 
(1) 016326 013737 001110 001106 7S: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
(1) 016334 000446 BR SOVER 
(1) 016336 105037 001103 4$: CLRB = SERFLG 3 ZERO THE ERROR FLAG 
(1) 016342 005037 001160 CLR STIMES [CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(1) 016346 000415 BR 1$ :TESCAPE TO THE NEXT TEST 
(1) 016352 032777 004000 162562 3$: BIT #B1T11,aSwR i INMIBIT ITERATIONS? 
(1) 016256 01011 BNE 1$ YES 
(1) 016360 (05737 001202 TST SPASS u1F first PASS OF PROGRAM 
(1) 016364 901406 BEQ 1$ INHIBIT ITERATIONS 
(1) 0163466 005237 001104 INC SICNT + INCREMENT ITERATION COUNT 
(1) 016%?2 023737 001160 001104 CMP STIMES,SICNT = 3; CHECK K THE NUMBER OF IT ERAT IONS MADE 
(1) 016400 002024 BGE SOVER 7BR IF MORE ITERATION REQU 
(1) 016402 012737 000001 001104 1$: MOV 1,$1CNT $EREINITIALIZE THE ITE eRATION EOUNTER 
(1) 016410 013737 016466 001160 MOV SRiCNT STINES *:SET NUMBER OF ITERATIONS TO DO 
(1) 016416 105237 00110 $SVLAD: INCB $TSTN 23 COUNT TEST SUMBERS 
(1) 01642 113737. 001102 001200 MOVB STSTNM,STEST ‘SET TEST NUMBER IN APT MAILBOX 
(1) 016430 011637 001106 MOV SD) SCPADR t:SAVE SCOPE LOOP ADDRESS 
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SCOPE HANDLER ROUTINESTARS 


MOV HS Ft «ae 


CLR 
MOVB 


01115 #1, SERMAX 
62462 SOVER: MOV $TSTNM, aD 
MOV SLPADR, ¢ 


64 0 RTI 
66 003720 SMXCNT: 2000. 


aban ERROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ZSONLY ALLOW ONE(1) ERROR ON NEXT TEST 
SIDISPLAY TEST NUMBER 
a 5 2 RETURN ADDRESS 


ad ES PS 
33;MAX. NUMBER OF ITERATIONS 


SEQ 0107 
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11080 
11081 .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
| (2) FERRARA AEEAEAEREREEEREREREEEEEAEREAEREAEERAEEEAEEEAEREREEEREEEEE 
| =) <STHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
i 61) :*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
(1) S*NUMBER IS POSITIVE OR NEGA E A SPAC A MINUS SIGN WILL BE TYPED 
. a) [*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
(1) i #REPLACED WITH SPACES. 
(1) 3* MOV NUM,=-(SP) 3zPUT THE BINARY NUMBER ON THE STACK 
C1) ie TYPDS 7:G0 TO THE ROUTINE 
(1) 016470 STYPDS: 
(3) 016470 010046 MOV RO,=(SP) s:PUSH RO ON STACK 
(3) 016472 010146 MOV R1.=(SP) +:PUSH R1 ON STACK 
(3) 016474 010246 MOV R2.=(SP) 3; PUSH R ON STACK 
(3) 016476 010346 MOV R3,=(SP) STACK 
(3) 016500 010546 MOV R5.=(SP) : PUSH RS ON TACK 
(1) 016502 012746 020200 MOV #20200,-(SP)  3:SET BLANK” suITeH AND SIGN 
(1) 016506 016605 000020 MOV 20(SP) RS ::GET THE INPUT NUMBER 
(1) 016512 100004 BPL 1$ [:BR IF INPUT ’ 
(1) 016514 005405 NEG RS [:MAKE THE BINARY NUMBER POS. 
(1) 016516 112766 000055 000001 MOVB 3s #*=, 1( SP) [:MAKE THE ASCII NUMBER NEG. 
(1) 016524 005000 1$: CLR 33ZERO THE CONSTANTS INDEX 
(1) 016526 012703 016704 MOV #SDBLK,R3 [SETUP THE OUTPUT POINTER 
(1) 016532 112723 000040 MOVB so #":—_, (R3)+ S:SET THE FIRST CHARACTER TO A BLANK 
(1) 016536 005002 2$: CLR R2 73CLEAR THE BCD NUMBER 
(1) 016540 016001 016674 MOV $DTBL(RO),R1 [GET THE CONSTANT 
(1) 016544 160105 3$: SUB R1,R5 : FORM THIS BCD DIGIT 
(1) 016546 002402 BLT 4$ :BR 
(1) 016550 005202 INC R2 5 2OR AEASE THE BCD DIGIT BY 1 
(1) 016552 000774 BR 3$ 
(1) 016554 060105 4$: -ADD R1,R5 :;ADD BACK THE CONSTANT 
(1) 016556 005702 TST R2 33CHECK IF BCD DIGIT =0 
(1) 0165 1002 BNE 5$ [FALL THROUGH IF 0 
(1) 016562 105716 TSTB = (SP) e ONIEL DOING LEADING 0'S? 
(1) 016564 100407 BMI $ [:BR IF YES 
(1) 016566 106316 5$: ASLB = (SP) 3 3MSD? 
(1) 016570 103003 BCC 6$ ‘BR IF NO 
(1) 016572 116663 000001 177777 MOVB  1(SP),=1(R3) SVES=-SET T HE SIGN 
(1) 016600 052702 000060 6$: BIS. #'0,R2 3 sMAKE THE 4860 DIGIT ASCII 
(1) 016604 052702 000040 7$: BIS ; *R2 [MAKE IT A SPACE IF NOT ALREADY A DIGIT 
(1) 016610 110223 MOVB  R2, (R3)+ ?:PUT THIS CHARACTER IN THE OUTPUT BUFFER 
(1) 016612 005720 TST (RO) + 7: JUST INCREMENTING 
(1) 016614 27 000010 CMP RO,#10 ?:CHECK THE TABLE INDEX 
(1) 016620 002746 BLT 2$ 3360 DO 0 THE NeXT DIGIT 
(1) 016622 003002 BGT 8$ G60 T0 
(1) 016624 010502 MOV R5,R2 S:GET T HES (SD 
(1) 016626 000764 BR 7:60 CHANGE TO ASCII 
(1) 016630 105726 8$: TSTB ss (SP) + 73WAS THE LSD THE FIRST NON-ZERO? 
(1) 016632 100003 BPL $ R IF NO 
(1) 016634 116663 177777 177776 MOVB  -1(SP),-2(R3) 22 YES=-SET THE SIGN FOR TYPING 
(1) 016642 105013 9$: CLRB (3) 33SET THE TERMINATOR 
(3) 016644 012605 MOV (SP)+,R5 POP STACK INTO R5 
(3) 016646 012603 MOV (SP)+.R3 t:POP STACK INTO R3 
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(3) 016650 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
(3) 016652 012601 MOV (SP)+-R1 t:POP STACK INTO R1 
(3) 016654 012600 MOV (SP)+- ;RO 3POP STACK INTO RO 
(1) 016656 104401 016704 TYPE S$DBLK ‘NOW TYPE THE NUMBER 
(1) 016662 016666 000002 000004 MOV 5tSP) .4(SP) :SADJUST THE STACK 
(1) 016670 012616 MOV (SP)+, (SP) 

(1) 016672 000002 RTI : RETURN TO USER 
(1) 016674 023420 $DTBL: 10000. 

(1) 016676 001750 1000. 

(1) 016700 000144 , 

(1) 016702 000012 10. 

(1) 016704 000004 $DBLK: .BLKW 4 


{----—- 
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“wT ~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
(2) FRRAAAAAEAAAEAAAAAAEAAE EEE EAAAAAAAAAAERAREEAAEREREAAREREAEREEEEE 
(1) + STHIS ROUTINE IS USED TO Cuanee A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(1) 3 #0CTAL (ASCII) NUMBER AND TYPE IT. 
$13 be 3 1 seats HERE 10 SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

it 
(1) 3* MOV NUM, =-(SP) sNUMBER TO BE TYPED 
(1) 38 TYPOS SI CALL FOR TYPEOUT 
(1) 3* -BYTE N 73N=1 TO 6 FOR NUMBER OF DIGITS 10 TYPE 
(1) 3* BYTE 77M=1 OR O 
(1) 3* 33 1=TYPE LEADING ZEROS 
He 3* 32;0=SUPPRESS LEADING ZEROS 
z@ 

(1) s*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
(1) ; *$TYPOS OR $TYPOC 
(1) s>*CALL: 
(1) * ae NUM, =(SP) 3: NUMBER TO BE TYPED 
He :* YPON 7:CALL FOR TYPEOUT 
V4 i $TYPOC~=-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
(1) * MOV NUM, =(SP) 3: NUMBER TO BE TYPED 
(1) :* TYPOC Si CALL FOR TYPEOUT 
(1) 016714 017646 000000 STYPOS: MOV a(SP),-(SP A 33PICKUP THE MODE 
(1) 016720 116637 000001 017137 MOVB 1(SP), ‘SOF I s:LOAD ZERO FILL SWITCH 
(1) 016726 112637 017141 MOVB (SP)+, SOMDDE +1 3s NUMBER OF DIGITS TO TYPE 
(1) 016732 062716 000002 ADD #2, (SP) s:ADJUST RETURN ADDRESS 
(1) 016736 000406 BR $T YPON 
(1) 016740 112737 000001 017137 S$TYPOC: MOVB #1,S0F ILL 33:SET THE ZERO enh Ds he 
(1) 016746 112737 000006 017141 MOVB #6, *SOMODE +1 z:SET FOR SIX(6) DIGITS 
(1) 016754 112737 000005 017136 $TYPON: MOVB #5.$0CN NT 33SET THE ITERATION’ COUNT 
(1) 016762 010346 MOV R3,-(SP) 23SA AVE R3 
(1) 016764 010446 MOV Sat oA ZSAVE R4 
(1) 016766 010546 MOV R5,-(SP) tISAVE R RS 
(1) 016770 113704 017141 MOVB SOMODE +1, RG 3:GET THE NUMBER OF DIGITS TO TYPE 
(1) 016774 005404 NEG R4 
(1) 016776 062704 000006 ADD #6 RS ssSUBTRAGT i FOR MAX. ALLOWED 
(1) 017002 110437 017140 MOVE R4, SOMODE 33;SAVE IT FOR USE 
(1) 017006 113704 017137 MOVB SOFILL,R4 3:GET THE rene FILL SWITCH 
(1) 017012 016605 000012 MOV 12(SP),R5 7;PICKUP THE INPUT NUMBER 
(1) 017016 005003 CLR R3 23 CLEAR THE OUTPUT 
(1) 017020 006105 1$ ROL RS 33 ROTATE MSB INTO ‘'C’’ 
(1) 017022 000404 BR 3$ O DO MSB 
(1) 017024 006105 2$: ROL R5 FORM THIS DIGIT 
(1) 017026 006105 ROL RS 
(1) 017030 006105 ROL R5 
(1) 017032 010503 MOV R5,R3 
(1) 017034 006103 3$: ROL R3 33GET ise OF THIS ,piest 
(1) 017036 105337 017140 DECB SOMODE hb HIS DIGIT? 
(1) 017042 100016 BPL 7 F NO 
(1) 017044 042703 177770 BIC #177770,R3 33GET RID OF JUNK 
(1) 017050 001002 BNE 4$ 3: TEST FOR 
(1) 017052 005704 TST R4 * SUPPRESS THIS 0? 


ee ae ee i Cie Ce eee _ -—-- 


CNDLAAO DLV11<y TEST — MACY11 30(1066) 23-DEC-82 13:56 PAGE 198-1 
‘CNDLAA.P11 © 23=DEC=82 13:55 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0111 
(1) 017054 001403 BEQ 5$ ::BR IF YES 
(1) 017056 005204 4$: INC RG 3;DON'T SUPPRESS ANYMORE 0°S 
(1) 017060 052703 000060 BIS #°0,R3 S:MAKE THIS DIGIT ASCII 
(1) 017064 052703 000040 5$: BIS a (R3 + MAKE ASCII IF NOT ALREADY 
(1) 017070 110337 017134 MOVB =e R23, 8S :7SAVE FOR TYPING 
(1) 017074 104401 017134 TPE 8 TYPE THIS DIGIT 
(1) 017100 105337 017136 = Pe DECB ©=-_:« $OCNNT S:COUNT BY 
(1) 017104 003347 BGT 2$ 33BR IF MORE TO DO 
(1) 017106 002402 BLT me [BR IF DON 
(1) 017110 005204 INC RG +: INSURE LAST DIGIT ISN" T A BLANK 
(1) 017112 000744 BR 2$ ':G0 DO THE LAST DIGIT 
(1) 017114 012605 6$: MOV (SP)+,R5 S:RESTORE RS 
(1) 017116 012604 MOV (SP)+_RG T:RESTORE R4 
(1) 017120 012603 MOV (SP)+_R3 T:RESTORE R3 
(1) 017122 016666 000002 000004 MOV 2(SP),4(SP) 3zSET THE STACK FOR RETURNING 
(1) 017130 012616 MOV (SP)+, (SP) 
(1) 017132 000002 RTI RETURN 
(1) 017134 000 8$: .BYTE 0 i STORAGE FOR. Ascit DIGIT 
(1) 017135 000 "BYTE 0 7: TERMINATOR FOR TYPE ROUTINE 
(1) 017136 SOCNT: .BYTE 0 S:OCTAL DIGIT COUNTER 
(1) 017137 000 SOFILL: .BYTE 0 33ZERO FILL SWITC 
(1) 017140 000000 SOMODE: .WORD 0 S NUMBER OF DIGITS TO TYPE 


CNDLAAO OLV11-J_TEST MACY11 30(1046) 23=DEC-82 13:56 PAGE 199 
CNDLAA.P11 23-DEC=82 13:55 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0112 
- 11086 
ne 3 5 -SBTTL TRAP DECODER 
| (2) FF RAAAAAAAAAAAAAAEAAE AEE EEA AEEAEAAEEAAEEAAEEEAEREAREEEEREEARARERAEE 
(1) s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 
(1) 3*AND_USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
(1) s*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
a3 :*GO TO THAT ROUTINE. 
(1) 017142 010046 STRAP: MOV RO,-(SP) 73SAVE_RO 
(1) 017144 016600 000002 MOV 2(SP),RO 3;GET TRAP ADDRESS 
(1) 017150 005740 TST =(RO) 3;BACKUP BY 2 
(1) 017152 111000 MOVB (RO) ,RO 33;GET RIGHT BYTE OF TRAP 
(1) 017154 006300 ASL RO 3sPOSITION FOR INDEXING 
(1) 017156 016000 017176 MOV STRPAD(RO),RO 5; INDEX TO TABLE 
33 017162 000200 RTS RO 3:G0 TO ROUTINE 
(1) 
> :3THIS IS USE TO HANDLE THE ‘'GETPRI'* MACRO 
(1) 017164 011646 $STRAP2: MOV (SP) ,-(SP) 3sMOVE THE PC DOWN 
(1) 017166 016666 000004 000002 MOV 4(SP),2(SP) 3sMOVE THE PSW DOWN 
4 017174 000002 RTI zsRESTORE THE PSW 
) -SBTTL TRAP TABLE 
(3) s*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
(3 3*BY THE “‘TRAP’’ INSTRUCTION. 
° 3 ROUTINE 
(3) 017176 017164 $TRPAD: .WORD $TRAP2 
(3) 0172 014504 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
(3) 017202 016740 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
(3) 0172 016714 S$TYPOS ;;CALL=TYPOS +3(104405) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
(3) 0172 016754 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
ti 017210 016470 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
ti 017212 015036 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT=SWR SETTING 
(3) 017214 014766 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 
(3) 017216 015250 SRDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
11080 017220 015370 SRDLIN ;;CALL=ROLIN TRAP*11(104411) TTY TYPEIN STRING ROUTINE 
11089 sMAXMEM FOR APT = 174 
11090 : EM NON APT = 17500 (ABS LOADER) 
11091 3THE FOLLOWING CALL TO CNMAC2.SML WAS ADDED TO INIT SBC 11/21 
11092 SPECIFICS 
11093 017222 POINT=. sSAVE POINTER 
(1) 000100 .=10 
(1) 000100 017222 SCLKVEC sLKVEC HANDLER 
(1) 000102 000300 300 INTERRUPT HANDLER PRI 
(1) 000140 .=140 sBRKV 
(1) 000140 170000 170000 ODT START ADDRESS 
(1) 000142 000300 300 sPRIORITY 
(1) 017222 -=POINT sRESTORE POINTER 


‘CNDLAAO DLV11- 


J_TEST MACY11 


CNDLAA.P11 23-DEC-82 13:55 
/ (1) 017222 «104401 017230 
(1) 017226 
(1) (017 005015 045514 
(1) 017 020103 047111 
(1) 0172464 051122 050125 
| (1) 017252 020055 044504 
, (1) 017260 0467117 042516 
' (1) 017266 046040 041524 
11094 000001 
~ 


J.9 
30(1046) 23-DEC-82 13:56 PAGE 199-1 
TRAP TABLE 


SCLKVEC: a 
CLKMES: .ASCIZ 21 5><12>/LKVEC INTERRUPT = DISCONNECT LTC / 


END 


ee eel 


SEQ 0113 


e--- - + a noe ee eee 2 + + 


CNDLAAO DLV11 “3 TEST macy 30(1046) 23=DEC-82 13:56 PAGE 200 
/CNDLAA.P11 3-DEC-82 1 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0114 


ee = 176500 86194 8857 
= 000000 

acbue = 000000 8857 

“ 000000 


ACTC 012364 103 
ADDRES 014156 10903* 109 995* 11005 110314 
ADDWO = 000000 7 


8857 
eee 8857 


0724 
072# 11075 
bySe 


7 
? 
8 9739 9792 9942 9968 10103 10376 10415 104 1 
ie Ss ee 4 ee +3 0376 10 0452 10861 11026 





en a ce a ne 


2e¢. — 


Te 


‘ 


| L 
{NDLAAO DLVIIoJ, TEST. MACYIT 301046) 23-DEC=B2 13:56, PAGE 200-1 
[CNDLAA.P11 —-23-DEC=82 13:55 CROSS REFERENCE TABLE =- USER SYMBOLS SEQ 0115 
'B1T01 = 000002 87248 8776 8819 
'B1T08 = 900004 87248 8775 8818 
'BITO$ = 000010 87948 8774 8817 
BITO4 = 000020 87948 8773 8816 
BITOS = 0 87948 8772 8815 
B1T06 = 000100 87948 8751 8771 8793 8814 
BITO? = 000200 87948 8750 8770 8792 8813 
BITOB = 000400 87348 11078 
BITO9 = 001000 87348 11075 11078 
BIT! = 000002 87248 9945 9971 11027 
BIT10 = 002000 87948 11075 
BIT11 = 004000 87348 11078 
BIT12 = 010000 87248 8765 10034 
BIT1$ = 020000 87248 8764 11075 
BIT14 = 040000 87948 8763 11078 
BIT15 = 100000 87348 8762 10467 
BIT2 = 000004 87348 9958 9974 11028 
BITS = 000010 87248 9957 9979 11029 
BIT4 = 000020 87348 
BITS = 000040 87348 
BIT6 = 000100 87248 10105 10108 10213 10224 10234 10244 10254 10264 10274 10284 10380 10383 
10526 10542 10553 10569 10580 10596 10607 10623 
BIT? = 000200 87344 
BIT8 = 000400 87348 10468 10492 
BIT9 = 001000 87348 
BPTVEC= 000014 87248 
BREAK = 000001 87998 8999 9007 9009 9018 9020 9029 9032 9930 9988 9990 9999 
RK = 000010 828" 8992 9918 
BRKVEC= 000140 87248 
AN. 014164 8881* 10961* 10980 10983" 10993 11000 11004" 11008* 11034# 
CHCNT 007766 10100* 10125* 10126 10129" 10132 10315# 
CHCTR 012362 10372 10391" 10392 10395" 10398  10449* 10453 10481* 10483 10487* 10490 10637# 
CHMASK 007764 10095* 10103 10124* 10158 10160" 10163 10314# 
CHMSK 012360 10371* 10376 10388* 10450" 10452 10482* 106364 
CHNUM 013476 10851* 10863 10865* 10868" 10877# 7 
CHOTAB 011360 10348 10401 106314 10655 
CHITAB 011560 10402 10632" 10656 
CH2TAB 011760 10403 106334 10657 
CHSTAB 012160 10404 106344 10658 
CKSWR = 104407 11075 11078 110874 
CLKMES 017230 110934 
: 87334 9665 
CONSOL 013604 9192 9281 9325 9 9413 9606 9689 9758 9921 10128 10167 10394 10485 
10900* 10905* 10908# 10972« 
cR = 000015 8724" 11066 | . 
CRLF = 000200 87244 8872 10036 10039 10807 10821 10847 10857 11043 11066 
CYCLE 013620 8885 10955# 10976 10987 10991 11009 
DATA. 005662 9791* 9808 9854 9856 98624 9879  9881* S885* 9886 
DDISP = 177570 87244 8857 8871 
DISPLA 001142 88574 8871* 11075* 11078* 
DISPRE 000174 8834" 8871 at 
AD 254 8859" 8892+ 8896 8807 8808 88998928 847 10064 10101-10369 11051 
DLADDR= 176500 87298 885 861 8862 8863 8864 
DLVEC 001256 88604 8894" 9537 9612 9780 10046 10087 10355 11053 


DSWR = 1775 
EMTVEC= 000030 87244 8871+ 
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NDLAA.P11 “DEC-82 13:55 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0116 
ERRCHK 0065 9928* 9942 9945* 9953* 9968 9971 9974 9979 100214 
ERRCNT 00562 9790* 9808 9814 98374 9854 9883* 9957 
ERROR = 100000 87624 ost) 9507 9720 9815 9879 
ERRORF 003304 9199* 9234* 9247 92624 
ERRVEC= 000004 87244 8871*  8930* 89351» 8968 8969* 10786* 10787* 10802* 10803* 11078 
ERWRD 012366 10344 10468* 10472* 10479 10490 10492 10496 106394 
EVENOD= 000004 88274 9949 
EXITFL 003 9200* 9253* 9256* 9258 92634 
FLAG 01261 10707* 10723* 10726 10738 107454 
FRERR = 020000 87644 9819 9944 

= teenee UJ 8834 8872 10036 10039 10043 10045 10047 10807 10821 10847 10857 10859 11043 
11045 11048 11050 11052 11087 
GTSWR = 104406 8872 110874 
HOLDSC 012613 10715* 10717* 10721 107464 
HOWLON= 000000 107044 10706 
HT = 000011 87244 1106 
01270 88654  8933*  8946* 8947 8948 
INTFLA 013616 8937* 8941 9534* 9556 9568 9578* 9583 9615* 9632 9643 9660* 9665 10792 
10794 10931* 109334 
INTRTA 007744 10078 10144 10155 10157 103114 
INTSRV 013610 8844 893 9541 9612 10786 109294 
IOTVEC= 000020 87244  8871* 
L = 000012 87244 11066 
LKVEC = 000100 87244 
LOOP 001732 88844 10056 11063 
MASK 014162 10099 10158 10371 10450 10970 10973 10997 110334 
MASK1 013502 10824* 10829* 10849 108794 11016 
MASK 013208 10825* 10830* 10834* 10835* 10836* 10837* 10880# 11017 
MASK 13506 10826* 10831* 10839* 108814 11018 
MASKS 013510 10827* 10832* 10841* 10842 108435* 10844* 10845* 108824 11019 
MODNUM 013474 10850* 10858 10870* 10871 10876# 
MODTST 007000 8907 100604 
MSK 013516 10853* 10861  10866* 108854 
MYTYPE 014172 11042# 11075 
NUMBER 005624 9793* 9795* 9808 98384 9854 9881 9886 
ODTST = 170000 87244 
ORERR = 040000 876 9449 9474 9498 9816 
PARITY= 000002 88264 9947 
003302 9196* 9248* 9249 92614 
PERR_ = 010000 87654 9822 9951 56 
PHASE2 014166 8879 8906 10035 10052 10053* 10960* 10978 10989* 110354 
PIRQ = 177772 87244 
PIRQVE= 240 87244 
POINT = 017222 110934 
PRIERR 007770 10154* 10178* 10181 103164 
PRO = 00 87244 9551 9620 9778 10147 10428 
PR1i = 000040 87244 
PR2 = 000100 87248 
PRS = 000140 87244 
PR4 = 000200 87244 
PRS = 000240 87244 
PR6 = 0003500 87248 8845 8871 8931 9050 9542 9612 9672 9783 9787 10084 10091 10358 
10361. 10365 10787 
PR7 = 000340 87244 
PS = 177776 87244 
PSW == 177776 87244 
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CNDLAAO DLVI1-J TEST MACY1 
CNDLAA.P11 3=DEC-82 13:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0117 
PWRVEC= 000024 87248 
P1 Oatoae 8882+ 100 10040* 10963* 10990* 11036# 
0012 130" # 8897" 8956 939 9446 9474 9498 9507 9718 9877 9939 9963 10004 
RC 007724 19508 102974 
RCH1 007726 10229 102984 
RCH 0077 10249 102994 
RCH 7732 10269 103004 
RCSR 1260 88614 8896+ 8952 aie ai¢o° 9122 9131* 9133 9142* 9145 9293 9307 9337 
9349* 9350 9380 939 9432 949 a8ii* ST 9658* 9710 9803* 9813+ 9882+ 
9887 9934 1000 10210 §=©10221 10231 10241 10251 10261 10271 10281 10519 10534 
10546 10561 1057 10588 10600 1061 
RCVRDO= 000200 wie 9293 9307 9337 9350 9380 9395 9432 9490 9627 8 9710 9934 10008 
RCVRIE= 000100 orate ails 9120 9122 9131 9133 9142 9145 9617 9629 9658 9803 9813 
RCVROS 007424 0088 102064 
RCVRIS 007504 102274 
RCVR2S 007564 102474 
RCVRSS 007644 102674 
RDATAO= 000001 777. 
RDATA1= 000002 7? 
RDATA2Z= 000004 87754 
RDATA5= 000010 87744 
RDATA4= 000020 8 
RDATAS= 000040 87724 
RDATA6= 000100 87714 
RDATA7= 000200 87704 
RDCHR = 104410 11069 110874 
ROLIN = 104411 110874 
RDRRUN= 000001 87574 
EC 005664 9782 98754 
G = 000004 107044 10705 
REGSAV 012606 10705* 10714 107434 
RESVEC= 000010 87244 
HLD 005770 9815 9816 9819 9822 9877* 9879 98954 
ROSRV 010660 10354 105184 
RISRV 011000 105454 
R2SRV. 011120 105724 
R3SRV_ 011240 105994 
RSSTAC 001332 88674 
es 977999 Wash "811 9234 9241 9247 9253 9256 9258 9293 9337 9380 9432 9490 
9545 556 9583 9627 9632 9700 9710 9934 9990 10008 10114 10717 
SETCLR= 000006 107044 10721 
SFTREG 013512 10790* 10796 10799* 108834 
SIZE 012700 8877 107834 
SRVEND 007724 10093. 1028 
STACK = 001100 87244 8871 8884 
START 001334 8834 8850 88714 
STATEN 012360 10351 106354 
STKLMT= 177774 87244 
SWR 0011 88574  8871* 8872 10034 11069* 11075 11078 
SWREG 000176 88344 8871 8872 11069 
sw0 000001 # 








CNDLAAQ DLV11-J_TEST 


CNDLAA.P11 
Ssw01 = 000002 
SwO02 = 000004 
SwOS = 000010 
Sw04 = 000020 
SwOS = 000040 
Sw06 = 000100 
SwO7 = 000200 
Sw08 = 000400 
SwO9 = 001000 
Swi = 000002 
Swi0 = 002000 
SWw11 = 004000 
Swi2 = 010000 
Sw13 = 020000 
SW14 = 040000 
Sw15 = 100000 
SWw2 = 000004 
SWw3 = 000010 
SWw4 = 000020 
SWS = 000040 
SW6 = 000100 
Sw? = 000200 
Sw8 = 000400 
Sw9 = 001000 
TABEND 007764 
TABL1 013520 
TABL2 014116 
TABL3 Beige 
TABL4 0141 
TABLS 014146 
TABL6 012416 
TABL? 012426 
TABL8 012436 
TBITVE= 000014 
TBUF 001266 
TCHO 007734 
TCH1 77 
TCH2 007740 
TCHS 007742 
TCNT 007772 
TCSR 1264 
TOATAO= 000001 
TDATA1= 000002 
TDATA2= 000004 
TDATA3= 000010 
TDATA4= 000020 
TDATAS= 000040 
TDATA6= 000100 
TDATA7= 000200 
TEMP 007774 


TIME = 000000 
ITIMER 012446 


MACY11 30(1046) 
23-DEC=82 13:55 


23-DEC-82 13:56 PAGE 20 


B 10 
0-4 


CROSS REFERENCE TABLE == USER SYMBOLS 


110114 
110214 


10169 
8960 
9085* 
9801* 


10213* 
10261* 


9293 


10170* 
8999 
9088 
9812 


10221* 
10262* 


9337 


9219* 
9932* 


10172* 
9007 


9165 
9859+ 


9380 


9227* 9288+ 
10006* 

10174 «1 
9009 


9211 
9890* 


10224* 
10271* 


9432 


10231* 
10272* 


9490 


9333* 


9545 


9376* 


10234* 
10281* 


9556 


9430* 


9032 
9545 
9999* 


10241* 
10282* 


9583 


9441* 


9055 
9548+ 


10242* 
10284* 


9627 


9489* 


10244 


103184 


9632 


SEQ 0118 


9581* 


9065 
9576* 


10251* 


9665 





; CNDLAAO DLV11- 
CNDLAA.P11 


J_TEST 


macyit 30(1046) 


23-DEC=82 13:5 


TIMSAV 012610 
TKVEC = 000060 
TMP 012370 


TMPO 012372 
TMPOE 012374 
TMP1 012376 
TMPIE 012400 
TMP2 012402 
TMP2ZE 012404 
TMP3 012406 
TMPSE 012410 
TMP4 012414 
TMP6 013514 
TMP7 013606 
TPVEC = 0 
TRAN 005626 
TRAPVE= 0) 
TRTVEC= 000014 
UE = 000001 
TSTCON 013530 
TSsT1 002 
TST10 003440 
TST11 §=©0035 
TST12 §©00371 
TST13 004222 
TST14 004512 
TST15 005046 
TST16 =. 005322 
TST17 }=— 005772 
TST2 002264 
TST20 006502 
TST21 007000 
TST22 007776 
TST3 002440 
TST4 002614 
TST5 002756 
TST6 003016 
TST7 003310 
TYPDS = 10440 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 
YPOS = 104403 
VECTOR 014160 
WAIT 01262 
WHICHB= 000002 
RAP = 000020 


iw = 0 
XMITIE= 000100 





9700 9710 
10706* 10726 
8724" 10904 
10519* 10520 
10551* 10553 
10589* 10590 
10623* 106424 
10409* 10444* 
10413 10445 
10445* 10549 
10446 10549 
10446* 10576 
10447 10576 
10447* 10603 
10603 106514 
10426* 10431 
10789* 10793 
10896* 10897* 

87244 
9786 98534 
87244 8871* 
87244 
87344 8906 
10723 10726 
10127 810166 
89234 
9282 93194 
9326 93624 
9369 94074 
9417 420 
96014 
9607 96844 
9691 9704 
9759 9834 
89864 
9919 9923 
100704 
190 103384 
993 90444 
91044 
91574 
91864 
9193 9217 
10048 11063 
8872 10036 
10863 10873 
11084 110874 
10044 10046 
110874 
11047 110874 
10904* 10956 
9443 9565 
107044 10714 
88294 9281 
879 9055 
9859 9890 


C10 
23-DEC-82 13:56 PAGE 200-5 


CROSS REFERENCE TABLE == USER SYMBOLS 


9934 9990 
10731* 107444 
10521 10524* 
10561* 10562 
10593* 10596* 
10461 10464 
IOee6 106454 
1056 10564 
106474 
10590 10591* 
106494 
10617 10618* 
10434* 10436* 
10798* 108844 
10898 109094 

9192 9281 
10738 10905 
10393 10484 

9454 9467 

714 9732 

99104 
10020 100294 
9260 92754 
110874 
10039 10043 
11043 = 11045 
11093 
11044 11049 
10969* 10996 
9640 10000 
9325 368 
9063 9065 


10008 


106504 
10437 


9325 
10978 
108964 

9479 

9737 


10502 


10045 
11048 


11051 


10114 


10534 
10566* 
10601 


10536 


10529* 


10047 
11050 


11053 


107684 


9606 
9076 


107044 

10535* 10536* 
10569* 10573 
10602 10605* 
10537* 106444 
10556* 10583* 
9606 9689 
9513 95284 
97534 

10049 10807 
11052 11054 
11069 110874 
9689 9758 
9085 9088 


ee ee - ee. ee ee 


10610* 


9758 


9918 
9548 


SEQ 0119 
10546* 10547* 10548 
10578* 10580* 10588* 
10616* 10617* 10620* 
10035 10052 10485 
10857 10858 10859 
11069 11075 11081 
9376 9801 9812 


‘CNDLAAO_DLV11= 
‘CNDLAA.P11 


XMITRD= 000200 
TOS 7454 


vi 
4 


2 
= 
5 
ssesssesscee 
INSUSSNARS 


oooooo 
2223944 
FIaSRSURK 


MMS 
— Sy 
™~ 


ss 
—— 
VIWoNnvui 


oo 
Sse 
satu 


000000 


J_TEST 
23-DEC-82 


MACY11 30(1046) 
13:55 
87924 9165 
102174 
102374 
102574 
Werle 
105334 
105604 
105874 
106144 
88564 
11072 
110724 
110724 
11066 110724 
110724 11075 
88574  8872* 
88574 10789 
88574 
88574 
88574 11075 
86124 
110664* 
110694 11087 
1109 
88574 8871 
88574 
110694 
110694 
88574 
88574 10049 
110814 
88574 8905 
88574 10783 
110634 
110814 
8854 872 
8871 110634 
110634 
110634 
88574 8872 
88574 8871 
10822 10964 
8871* 110634 
88574 11075* 
88574  8871* 
88924 88944 
89464 8947# 
90744 90834 
92004 92074 
93294 93334 
94464 94594 
5564 95654 
96294 96324 
97808 97824 
98564 98594 
99344 99394 


D 10 
23-DEC-82 13:56 PAGE 200-6 


CROSS REFERENCE TABLE == USER SYMBOLS 


9211 


10873 


10796* 


110634 


9231 


11054 


10805 


11075 


9241 


11066 


10817* 


11075 


9545 


11069 


10824 


9700 


11075 


10825 


10826 


10827 


a 
99994 


100004 


SEQ 0120 


Oa SE SESS 


;CNDLAAO DLV11-)_TEST 


E_10 
MACY11 30(1046) 23=DEC-82 13:56 PAGE 200-7 
| CNDLAA.P11 23-DEC=82 13:55 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0121 
| 100084 100404 100534 100544 100784 10080% 100874 100884 100904 100914 100924 10099" 10100# 
101014 101054 11208 101084 10110 101124 101144 ipiege 101244 101254 101274 10129# 101444 
101524 101544 101554 101574 10208 102104 102114 1021 102194 102214 102224 102244 102294 
| 102314 102324 102344 102394 102414 102424 102444 102494 102514 10252# 102544 102594 102614 
102624 I eeee 102694 elke 102724 $4 9 102794 Ieee 4 44 102844 103444 103484 103504 
103544 103554 103574 105584 10359# 103604 103614 10 74 103694 1035714 103724 103744 103784 
103804 103814 103834 103844 103864 103884 103914 10359 103954 104014 104024 104034 104044 
| 104094 104114 1041354 10416# 10417# 10419% 104204 104224 104264 104344 104364 104444 104454 
| 104464 104474 104494 104504 104534 10455 104574 104594 104614 104624 104644 104684 10472# 
| 10475# 10477# 104814 104824 10484# 104874 105194 105204 105214 105244 105264 105294 10534# 
105354 10536# 105374 105394 i Ft 4 105464 10547# 105484 105514 105534 105564 105614 10562# 
105634 105644 105664 105694 1057 105744 105754 105784 10580# 105834 105884 105894 105904 
105914 105934 105964 106004 10601# 106024 106054 106074 10610# 106154 106164 10617# 1061 
1062 106234 107054 107064 107074 10715# 107174 10723 107304 107314 10739# 107414 10770# 
107714 107724 1093514 
SERR 016010 8871 110754 
SERRPC 001116 88574 11049 11075* 
SERRTB 001254 88574 
SERTTL 001112 88574 10048 10051* 11075* 
SESCAP 001162 88574 8871* 11075 11078 
TABL 001214 88574 
SETEND 001254 8856 88574 
SFATAL 001176 8574 11046* 11047 11072* 
SFFLG 016006 110724 
SFILLC 001156 8574 11066 
SFILLS 001155 88574 11066 
SFSAND= 000310 86124 8906 8941 8992 8999 9009 9020 9032 9055 9065 076 9088 9112 
122 9133 9145 9165 919 9231 9247 9249 9281 307 9325 350 
9395 9413 9414 9449 946 9474 9498 9507 9568 9606 643 9689 9720 
9727 9728 9729 9739 9758 792 814 9815 9816 9819 9822 854 9879 
9918 9921 9949 9951 9956 9968 7 79 
10015 10034 10035 10038 10052 10103 10126 10128 10181 10376 10392 10394 
1038 10467 . 10471 10483 10485 10492 10496 10522 10549 10576 10605 10714 10721 
$FSBAD= 000401 86124 8906 8941 8992 8999 9009 9020 9032 9055 9065 9076 9088 869112 
9122 9133 9145 9165 9192 231 247 9249 9281 9307 9325 9350 
9395 9413 9414 9449 9460 9474 9498 9507 9568 9606 9643 89 9720 
9727 9728 9729 9739 9758 9792 9814 9815 9816 9819 9822 9854 9879 
886 9918 9921 9940 9944 47 9951 9956 68 9971 9974 79 
10015 10034 10035 10038 10052 10103 10126 10128 10181 10376 10392 394 04 
cts 10467 10471 10483 10485 10492 10496 10522 10549 10576 10605 10714 10721 
$FSBLA= 000170 . 86124 
SFSCAS= 000150 86124 
$FSDEC= 000220 86124 
$F$GOO= 000400 8612# 890 8941 8992 8999 9009 9020 9032 9055 9065 9076 9088 9112 
9122 913 9145 9165 9192 9214 9231 9242 9247 9249 9281 92 9307 
9325 9339 9350 9368 9382 9395 9413 9414 9435 9449 9460 9474 93 
9498 9507 9559 9568 9908 9635 9643 9667 9689 9701 9711 9720 9727 
9728 9729 9739 9758 979 9814 9815 9816 9819 9822 9854 9879 
18 9921 9935 9940 9944 9947 9949 9951 956 9971 74 79 
993 10009 10015 10034 10035 10038 19036 10103 10116 10126 10128 10181 10376 
1039 10394 10415 10452 10467 10471 1048 10485 10492 10496 10522 10549 10576 
1060 10714 10721 10738 
SFSIF = 000110 saige 8906 8908 8910 8941 8944 8992 8994 8999 9002 9009 9012 9020 
902 9032 9035 9055 9058 9065 9068 9076 9079 9088 9091 9112 9115 


a = e  e 


r- —= 


CNDLAAO DLV11-J TEST 
‘CNDLAA.P11 ©. 23=DEC=82 1 


a 
SFSINC= 000210 
ob Te 000200 


000160 
000403 
$SFSOR = 000320 


SFSRTN= 000300 
SFSSEL= 000140 
SFSUNT= 000130 


$FSWHI= 000120 
SFSYES= 000402 


CNT 11 
SIFLEV= 177777 


ACY1 
3:55 
9122 9125 9133 9136 9145 
9237 ogre 9245 9246 9247 
9307 9310 9325 9327 9339 
9399 9413 9414 9416 9418 
9474 480 9493 949 9498 
960 9635 9638 964 9646 
9720 9723 9727 9728 9729 
9794 9796 9814 9815 9816 
9857 9879 9884 9886 9888 
9938 9940 9943 9944 9946 
9968 997: 9973 
10015 = 10018 §=610034 +=10035 10037 
10119 = 10120) «10126 )3=— 10128 )3=— 10130 
10398 10397 10415 10418 10421 
10488 10489 10492 10495 10496 
10581 10584 10603 10608 10611 
86124 695 97 10771 += 10772 
aeise 9197 9258 9259 10712 
8612# 8941 8992 8999 9009 
9133 9145 9165 9192 9231 
9413 9414 9449 9460 9474 
9728 9729 9739 9758 9792 
9918 9921 9944 9947 9949 
10038 10052 10103 10126 10128 
10485 10492 10522 10549 10576 
8612" 890 8941 8992 8999 
aise 913 9145 9165 919 
93 941 9414 9449 946 
9727 9728 9729 9739 9758 
9886 9918 9921 9940 9944 
10015 910034 10035 10038 10052 
10338 10467 910471 = 10483) =: 10485 
86124 10704 10748 10768 10776 
86124 
86124 34 980 
Hb FFs 10363 10375 10398 10414 
86124 9281 9325 9368 9606 
86124 890 8941 8992 8999 
9122 913 9145 9165 9192 
9395 9413 9414 9449 9460 
9727 9728 9729 9739 9758 
9886 918 9 9944 
10015 10034 10035 10038 10052 
10452 910467 910471 10483 10485 
10738 
88574 
88574 
110634 
110694 11087 
8721 
88564 
8857# 11078* 
8612 8906 89108 89414 89448 


Fi 
1 30(1046) 23=DEC-82 13:56 PAGE 200-8 
CROSS REFERENCE TABLE == USER SYMBOLS 


89928 


89948 


89994 


90024 


90094 


90124 


90204 


SEQ 0122 


90234 


10 
1 3041046) 23-DEC-82 13:56 PAGE 200-9 


CNDLAAO OLvit-) TEST MACY ’ 

CNDLAA.P11 23-DEC=82 13:55 CROSS REFERENCE TABLE == USER SYMBOLS S£Q 0123 
90324 90354 9055# 90584 9065# 90684 90764 90794 9088 90918 91124 91154 91224 
91254 91334 91364 91454 91484 9165¢ 91728 91928 91944 92148 92184 92318 92424 
92454 92468 Sh +d 92544 FEA 92814 92994 93074 93108 93254 
93278 9 93548 93684 95708 93824 93954 9 94144 
94184 94214 94354 94498 94558 94604 94684 94748 94808 94934 94 949 
95054 44114 95114 95598 9562 9568# 95714 960 96084 96354 96384 964 
966 96894 97014 9705¢ 97118 97154 97208 97234 97278 97284 97298 
97334 97384 739 97444 97608 97928 98144 9815# 8164 9819 9822 
98284 98324 98334 98544 98574 98798 98864 98914 98924 99184 99218 99244 9925# 
99354 384 99408 994 99448 99468 99478 99514 9954" 564 99594 
99604 84 99704 997 3# 99748 99784 99844 99934 64 100124 
10015# 100184 100344 100354 384 10041# 100424 100504 100524 100554 1034 101164 101194 
101204 101264 101284 101304 101314 101814 101884 103764 103874 103924 103944 103 103974 
104154 104214 104524 104674 10469% 104714 104734 104804 34 104854 104894 104928 
10495# 104964 104994 105224 10530# 10549# 10557# 10576# 105844 106034 10611# 107144 10718¢ 

| 107214 107244 107384 107404 

‘SINTAG 001135 88574 11069 

“$S1SKO = 000001 89064 8910 89418 8944 8992" 8994 89994 9002 9009# 9012 90204 9023 90324 

9035 90554 9058 90654 9068 gorge 9079 90884 9091 91128 91228 
91334 91454 91654 17 91924 9194 92144 92314 2 92474 

9257 92814 92964 9307" 9310 93254 932 93394 93504 

93684 370 93824 9386 9395# 9399 94138 421 94354 8 94498 9455 

94748 0 94934 4 94984 9505 95074 951 95594 95 9571 

064 96354 9 9646 96674 670 96894 97014 9705 97114 

9715 97208 9723 97274 897398 974 97584 9760 97924 9796 98144 9833 98544 
9857 98794 99184 9925 9935¢@ 9938 99408 994 99448 9947# 

9970 99714 997 74e = =—997 9979# 9984 9 10009# 10012 10015# 

| 0018 100344 10050 10052# 10055 101034 101 Eo 19166" 1 101814 10188 10376 1038 
103924 10397 104154 10421 10452# 104 489 104924 104 10 105224 
10530 10549# 10557 1057 584 10603# 10611 107144 19% 107214 10724 107384 10 

$I1SK1 = 000001 92424 9245 92494 9254 94148 9418 97284 9738 98iS# 983 98864 9891 9921 
9924 99494 9959 10035# 10042 101164 10119 101284 10130 103944 10396 10467# 10469 
104714 10473 104854 10488 

$ISK2 = 000001 # 9733 98164 98194 98224 9828 99514 9954 99564 9958 100384 10041 

SITEMB 001114 88574 11046 11075* 

SLF 001172 88574 11066 11069 11075 

$SLFLG 016005 110724 

SLOCTA= 177777 86124 8906 8908 8910 8934 8941 8944 8948 8992 8994 8999 02 
901 9020 9023 9032 9035 9055 9058 9065 9068 9076 9 9088 1 
9112 9115 9122 9125 9133 9136 9145 9148 9165 9172 9192 9 9197 
9214 9218 9231 9237 9242 9245 9246 9247 9249 9254 9255 92 9258 
9259 9281 9283 9296 9299 9307 9310 9325 9327 9339 3 9350 9354 
9368 9370 9382 9386 9395 9399 9413 9414 9416 9418 9419 94 35 
9438 9449 9455 9460 9468 9474 9480 9493 9496 9498 9505 9507 9511 
9559 9562 9568 9571 %6 9608 9635 9638 9643 9646 966 7 
9692 9695 9701 9705 9711 9715 9720 9723 9727 9728 9729 973 7? 
9738 9739 9744 9745 9758 9760 979 9794 9796 9807 9808 9814 9815 

9816 9819 9822 9825 9828 9829 983 $833 9854 9857 9879 9884 9 

9888 9891 9892 9918 9920 9921 992 9925 9935 9938 9940 9943 9944 

| oor 9947 9949 9951 9954 9955 9956 9958 9959 9960 9968 9970 9971 

997 9974 9978 9979 9984 9993 9996 10009 10012 10015 10018 10034 10035 

10037 10038 10041 10042 10050 10035 10055 10079 10081 10089 10093 10102 10103 

10116 §=10119 10120 19760 10128 §=1013 10131 §=©10132 »=610181 »3= 10188 )3=—s 10349 »3= 10351 =: 10356 
10363 10375 10376 10385 10387 19735 10394 19738 10397 = 10398 )§=610414 39 10415 =: 10418 

| 10421 10423 10430 10431 10435 1043 10451 1045 Hos 10467 10469 10471 10473 

| 10479 10480 10485 10485 10488 10489 10490 10492 1049 10496 10499 10522 10527 

} 


a ma ene ee = ee — 


H 10 
CY11 30(1046) 23=DEC-82 13:56 PAGE 200-10 


CNDLAAO DLV11-)_ TEST MACY! 
CNDLAA.P11 23-DEC=82 13:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0124 
10530 10549 10554 10557 10576 10581 10584 10603 10608 1961) 10704 10712 10714 
1071 10718 10721 10724 10726 10732 10738 10739 10740 10741 10748 10768 10771 
1077 10773 =610774 «= 10776 )3=— 11042 ~=Ss- 11055 
SLPADR 001106 8857# 8871* 11078 
SLPERR 001110 88574 8871* 8935* 8997= 9006" 9016" 9027* 9053"  9062* 9072 9083* 9110e 9119: 
9129" 9140* 9163 9285" 9303* 9329* 93728 9425* 9459% 9471 9483* 9543* 95742 
9614* 9655* 9926" 9986" 11075 11078 
SLSTCN= 177777 86124 86154 8906 890 8910 8934 8941 8944 8948 8992 8994 8999 9002 
9009 9012 9020 9023 9032 9035 9055 9058 9065 9068 9076 9079 9088 
91 9112 9115 9122 9125 9133-9136 9145 9148 9165 172 9192 9194 
9197 9214 9218 9231 9237 9242 9245 924 9247 9249 9254 9823 9257 
9259 9281 9283 9296 92 9307 9310 932 9327 9339 3 9350 9354 
9368 9370 9382 9386 9395 9399 9413 9414 9416 9418 9419 9421 9435 
9438 9449 9455 9460 9463 9474 9480 9493 9496 9498 9505 9507 9511 
9559 9562 9568 9571 9 608 9635 38 9643 6 9667 9670 968 
5 9701 9705 9711 9715 9720 9723 9727 9728 9729 9733 9 
9738 9739 9744 9745 9758 9760 9792 794 97 9807 9808 9814 9815 
9816 9819 9822 9825 9828 9829 9832 9833 9854 9857 9879 9884 9 
9888 9891 9892 918 9921 9924 25 9935 9938 9940 9943 9944 
9946 9947 9949 «9951 9954 9955 9956 9958 9959 9960 9968 9970 9971 
9973 9974 9978 9979 9984 9993 9996 10009 10012 10015 10018 10034 10035 
10037 10038 10041 10042 10050 10052 10055 10079 10081 10089 10093 10102 10103 
10116 §=6.10119 )3=—- 10120) 10126)3=—s 10128 )3=— 10130) «10131 »3=s 110132 )3=S 10181 »3=6 10188 §=610349 3=10351 =: 10356 
10363 10375 10376 10385 10387 10392 10394 1039 10397 = 10398 §=610414 §3=610415 =: 10418 
10421 910423 104630 10431 10435 10437 10451 1045 10466 10467 10469 10471 10473 
10479 10480 10483 10485 10488 10489 10490 1049 10495 10496 10499 10522 10527 
10530 10549 10554 10557 10576 10581 10584 1060 10608 106117 10704 10712 10714 
ore 18 1Oree 10724 10732 10738 10740 10748 10768 10771 10772 10773 10774 
$LSTIN= 000000 86124 86134 8892 8894 8896 8897 8898 88 8900 8905 8906 8908 8909 
8928 8933 8935 8937 8941 8946 8947 8948 8992 8997 8999 9006 9007 
9009 9016 9018 9020 9027 9029 9032 9053 9055 9062 9063 9065 9072 
9074 9076 9083 9085 9088 9110 9112 9119 9120 9122 9129 =: 9131 9133 
9140 9142 9145 9163 9165 9192 9196 9199 9200 9207 =. 9211 9214 9227 
9231 9234 9237 9241 9242 9247 9248 9249 9253 9255 9256 9258 9259 
81 9285 9288 9293 9296 9303 307 —s_- 9325 9329 9333 9337 = 9339 9349 
9350 9368 9372 9376 9380 9382 9393 395 9413 9414 9416 19 9425 
9430 9432 9435 9441 9443 9446 9449 9459 9460 9471 9474 9483 9489 
9 9493 9498 9507 —s_- 9534 9537 = 9539: 9543 9545 9548 9554 9556 9559 
9565 568 9574 9576 578 = («9581 9583 606 9612 9614 9615 9617 9623 
9627 = 9629:496 32 9635 9640 9643 9655 9658 9 9662 9665 89 
9695 700 9701 9708 9710 9711 9718 9720 869727 9728 9729 §=—- 9734 9739 
9745 9758 9780 9782 9783 9786 9787 9 9791 9792 5 
9801 9803 9808 9812 9813 9814 9815 9816 9819 9822 9825 9829 9854 
9856 9859 9877, 9879—s:«9881 988 9883 9884 9885 9886 9887 9 9890 
9918 9920 9921 9926 9928 9930 9932 9934 9935 9939 9940 9942 9944 
9945 9947 9949 9951 9953 9955 9956 9957 9968 9971 9974 9979 9986 
9988 9993 9999 10000 10004 10006 10008 10009 10015 10034 10035 10037 
10038 10040 10052 10053 10054 10078 10080 10081 10087 Ieee 10090 10091 10092 
10093 10099 10100 10101 10103 10105 19198 10108 10110 1011 10114 = =1011 10122 
10124 10125 10126 10127 10128 10129 1013 10144 10152 10154 10155 1015 10181 
10208 19318 10211 = 10213 »=— 10219 »= 10221 10222 eee see 1053) 1933 10234 10239 
10241 1024 10244 10249 10251 10252 10254 19 9 10261 10262 10 $ 10269 10271 
10272 10274 10279 10281 1068s 10284 10344 10548 10550 10551 10354 10355 10357 
10358 10359 10360 10361 1036 10363 10369 10371 Res 10374 10576 10378 10380 
10381 10383 10584 10385 10386 10388 10591 10392 1039 10394 10395 10398 10401 


CNDLAAO DLV11-J5_TEST 
CNDLAA.P11 


“$LSTST= 177777 


$LSTTA= 000000 


001240 


23-DEC-82 


MACY! 
13:55 
1040 10403 10404 
1042 94 $3 10431 
1045 10455 10457 
10479 10481 10482 
10522 10524 10526 
10548 10549 10551 
10574 10575 10576 
10600 10601 10602 
10623 10705 10706 
10732 10738 10739 
86124 86164 8906 
9009 9012 9020 
9091 9112 9115 
9197 9214 9218 
9258 9259 9281 
9354 9368 9370 
9435 9438 9449 
9511 9559 9562 
9689 9692 9695 


9944 994 9947 
9971 997 9974 
10035 10037 10038 
10103 10116 10119 
10356 10363 10375 
10018 10421 10663 
1047 10479 10480 
10527 910530 §=10549 
10714 10716 10718 
10773. 10774 10776 
86124 86144 8908 
9079 091 9115 
9254 9255 9257 
9370 9386 9399 
9511 956 9571 
9723 973 9734 


9973 99 4 
10102. 10119 10120 
10414 10418 0421 
10490 10495 
10716 10718 10724 
11055 

88574 

88574 

88574 
88574 


8856 88574 8871 
9407 9528 9601 


ee ee ee 


9978 


ee eee ey 
ALR —DCOnNUSSW—Oo 


10411 
0436 


a 


ee ey 
MENS UI 


5 tr et tet eet We Py ptt tert 


OOM OO O09 


1.10 
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CROSS REFERENCE TABLE <= USER SYMBOLS 


NNOuUuW 
~j—Oowr 
oUN— oO 


8934 


> Ssessse2ee 
So ae 


ee i 
Soeresss 
UNDO 


O00 DBOOCOCOOoSoo 
WN — OO NNQOUUIMNE 


eR 


ah na a a 


i i ee 


oe ae eed es Sd td 


ek ed ed ed dd ed 
NO w—So 
OOO Oc 


NRONOW BOOOUAN——Wwouw 


kk ed td dd dd 
NN OO Seo Neo 
FOAN-ANVONOCO 


3 


S S&RR 
Sa S=kS 


© 
Nm 
nv 


9343 


3 
WR OO Srwuwn 
—“OOwWvoaoucoe 


oo 
on 
w 


9319 


SEQ 0125 


tt tt 
=o 
SONU 
ee no on 
NM—OOWN— NPP 


N-uUoO 


ek ek et ed ed od ed 
MMMM" 


9362 


- 


CNDLAAO DLV11-J_TEST 
CNDLAA.P11 23-DEC-82 
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v car 

a) Cr 

1] 
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at td SL I I IIR O 
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= 
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$NSKO = 000300 


$NSK1 = 000210 


SNSK2 = 000210 


—--— 


J.10 
CY11 30(1046) 23=DEC-82 13:56 PAGE 200-12 
755 CROSS REFERENCE TABLE == USER SYMBOLS 
5 


—> — sz 
WP 


st 


8574 
8574 


2 
95594 95624 684 95714 96064 96354 
96924 96954 97014 97054 97118 97154 
9739 97444 97454 97588 6 97928 
98164 9819 9822 9825 98284 82 98324 
_. 98914 9892# 99184 20 99218 99 
99464 ~ 99474 99498 99514 99548 9955 5 
734 8699744 99784 99798 99844 999 999 
10037, 10038# 10041# 100424 10050# 100524 10055¢ 
101164 101194 101204 101264 101284 1013 101314 
03634 103754 10376# 10385 10387# 103924 103944 
104214 10423# 10430# 104314 104354 104378 104514 
10479# 104804 104834 104854 10488% 10489# 104904 
105304 105494 10554 105574 10576# 10581 105844 
10716 §=107184 107214 107244 10726 107324 107384 
10774# 107764 110424 110554 
89064 8908 8910 89344 8948 89924 8994 
90324 9035 90554 9058 90654 906 90764 
9125 91334 9136 91454 9148 91654 9172 
9283 92964 9299 93074 9310 93254 9327 
93824 9386 9395@ 9399 94134 941 942 
94744 9480 949 9496 9498# 950 95074 
9608 96354 9638 96434 9646 9667# 967 
97924 89794 9796 98074 9808 98144 983 
9920 99354 938 99408 994 99444 
9973 99744 9978 9979# 9984 9993# 9996 
100524 10055 100794 10081  10089# 10093 ieee 
10365 10375# 10398 104144 19°¢3 104304 10431 
10496# 10499 10522# 10527 10530 10549# 10554 
10611. 10704 10748 107684 10776 11042 11055 
8941# 8944 92144 9218 923148 9237 asa6 
97018 9705 97114 9715 9720 9723 9 3 9 
9888 9891 99214 9924 9949# 9955 99 
10131, 10376# 10385 10387 10392# 10397 10415# 
10712# 10726 10732 10738# 10740 10771# 10774 
92424 9245 92494 9254 97288 9734 973 
9954 99564 9958 10038 10041 10116# 10119 


a i oe 


= 


So 
o 
= 
= 


oOo 
onmksS 
SSF ou 


kd ed td dd od 
222 


wvese YIRRRSS S 
SSsPsResesezes 


S3g238 
= FOUN = 


-—2 eo 
rs 
oO 
= 


cof wv 


esse ses 
or BDor— 


_ —— 
ow 
woo 


SEQ 0126 


kK 10 
1 30(1046) 23-DEC-82 13:56 PAGE 200-15 


/CNDLAAO DLV11-J_ TEST MACY! 
‘CNDLAA.P11 © 23=DEC-82 13:55 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0127 
| 104854 19488 10714# 1071 10718 107214 10724 10772# 10773 
‘$SNSK3 = 000110 97294 97 104674 10469 10471 10473 ‘ 
'SNULL 001154 8857# 11066 
SNWTST= 000001 9254 8986" 90444 9104 91578 91864 92754 93198 93624 94074 95284 9601# 96844 
97534 10# 100294 100700 103384 
|SOCNT 017136 110844 
017140 110844 
ISOVER 016452 110784 
'S$PASS 001202 88574 8871* 11063* 11078 
SPASTM 001006 88564 
UES 001170 8857# 11066 11069 11075 
SROCHR 015250 110694 11087 
SRDODEC= eeeeee Y 11087 
SROLIN 015370 110694 11087 
DOCT= eteeee Y 11087 
$RDSZ = 10 110694 
$RT 014462 110634 
2A = teeeee Y 11087 
$SAVLE= 177777 86124 92598 96954 107324 107714 107724 
SSAVRE= seeeee 11087 
COPE 016210 8871 110784 
$SETUP= 000127 88684 8872 11063 11069 11075 11078 
$SSKO = 000253 92594 9695# 10732# 107714 107724 
STUP = 177777 88684 
SSVLAD 016416 110784 
$SVPC = 000430 88544 
$SWR = 167400 86174 8721 8723 8857 8871 8923 8986 9044 9104 9157 9186 9275 9319 
936 9407 9528 9601 9684 9753 9910 10029 10070 10338 11063 11075 11078 
SSWREG 001216 88574 8871 
SSWRMK= 000000 8723 11078 
$TAGLE= 177777 86124 89064 89084 89104 89344 89414 89444 8948# 8992" 8994" 8999" 90024 
90124 9020 90234 9032 9035% 9055# 90584 90658 90684 90764 90798 90884 a 
91124 91154 91224 91254 9133# 91368 9145# 914 91654 91728 9192 91948 91978 
92148 92314 92374 92428 9245% 92464 92478 9249# 92544 92558 9257# 
9259# 92814 964 994% # 93108 9325# 93274 93398 se (935 93544 
. 9 93824 93864  9395¢ 4134 94148 84 19# 942 
94494 94554 94604 94684 94748 9480# 949 9 94984 9505 9507# 95114 
559" 95624 95684 95714 96064 960 96354 96384 96434 9 96674 967 
96924 954 97014 9705# 97118 9715# 204 97234 97274 284 97298 97334 
97384 97394 97448 97454 9758% 976 97924 97944 979 98074 98084 98144 9815¢ 
98164 194 98224 98254 98 98294 98324 983 98544 9857# 98798 98848 
\ 9 98914 98924 99184 9920 99218 99244 9925¢ 99358 99384 99404 99438 99444 
\ 99464 99474 9949# 99518 99544 9955# 995 5 99594 99604 99684 99708 99714 
é 99734 99744 99784 99798 9984% 99934 9996# 100094 10012# 10015# 10018# 100344 10035# 
: 10037# 100384 100414 100424 10050# 10052# 10055# 100794 100814 10089# 10093# 10102# 101034 
101164 101194 101204 10126 10128 10130@ 101314 101324 101814 101884 10349# 10351#@ 10356# 
103634 103754 103764 103854 10387# 103924 103944 10396# 103974 103984 10414# 10415# 104184 
104214 104234 104304 104314 10435# 104374 104514 104524 104664 104674 104694 104714 104738 
10479# 10480# 104834 104854 104884 104894 104904 104924 104954 10496# 10499# 105228 10527# 
10530# 105494 105544 105574 10576# 105814 105844 106034 106086 106114 10712@ 10714# 107164 
107184 107214 107244 10726 10732# 107384 107408 107714 10772# 107734 107748 
STAGNU= 000257 86124 89064 89084 89344 89414 89928 89994 90094 204 90328 90554 9065 90764 
908 91124 91228 91334 9145¢ 916 # 91928 91978 92144 92318 92378 gee 92478 
92494 92554 92814 92964 93074 93254 9339# 9350# 9368 93828 9395# 941 94148 
94168 94194 946354 9449# 94608 94748 9493" 949 95074 95594 9568% 96068  9635¢ 
964 96674 96894 96954 9701# 97118 97208 9727# 97284 97298 97348 97398 97588 


aeeeat 
| 


L.10 
CNDLAAO DLV11-J_TEST MACY11 30(1046) 23-DEC-82 13:56 PAGE 200-14 
/CNDLAA.P11 23-DEC-82 13:55 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0128 


97928 97948 98074 9808 98148 98158 98164 98198 9822 98254 98294 98544 98794 
98844 98864 98884 99184 egos 99214 99354 99408 99448 99474 9949% 995148 99554 
9956# 99684 99714 99748 99798 999 100094 100154 100344 100354 100374 100384 100524 
100 101024 1010 10116# 101264 Woeee 101814 103494 103564 103754 103764 103854 
103924 103944 104144 104154 104184 OF 104354 104514 104524 104664 104674 104714 104794 
3# 104854 104904 104924 104 105224 105274 105494 105544 10576# 105814 106034 106084 
107044 107124 107144 107164 107214 107384 107684 107714 107724 110424 
:STEMP = 000300 88924 88944 88964 88974 eeree 88994 89004 89054 8 89094 89104 89334 
89354 89374 89444 89464 9478 89484 89944 89974 90024 90064 90074 9012# 901 
90234 90274 9029# 9035% 9053# 90584 90624 8# 90724 90744 90794 
8 90854 911 9115@ 91198 9120 91254 91298 913518 9136 91404 91424 
91484 91634 9172 91944 91968 91998 92008 92074 2274 234 92374 92454 
92464 92484 92544 9255# 74 92574 92584 92594 2834 92854 92 92994 
9303# 93104 935274 93298 9 93494 93544 93708 93728 93 93934 
94194 94218 9425 94304 943 94418 944 94554 94598 94684 
94714 94834 94894 9505#@ 95114 95344 95374 95394 4 95544 
95624 95714 95748 7 8# 95814 96084 96144 96174 2 96294 
384 69 96554 96584 9660 9662 96704 96924 96954 97054 97084 9715# 97184 
97234 9733 97348 97398 8697648 9745 97604 97824 8697834 97874 
97 97914 97944 9795# 9796 98014 98034 8084 812% 9813# 98198 98224 
98254 98294 98324 3# 98564 98574 98594 98774 98814 98824 988 98844 
98854 98874 98904 98918 98924 99208 99244 99254 99284 99308 99324 
99384 9939% 9942# 9943# 9945# 9946# 9953# 99544 9955 99574 99584 99594 9960# 
99708 99734 99784 99844 9986# 9988% 99964 9999% 100044 1 100124 100184 10037# 
100404 10041# 10042# 100504 10053# 10054# 100554 10078# 100804 100814 100874 100884 100904 
100914 100924 100934 100994 10100# 101014 10105# 101064 10108 10110# 101124 101194 101204 
101224 10124 101254 101294 10150 101314 1013524 101444 10152 101544 101554 101574 101884 
Ht 4 74 105198 102114 elas 105198 tt 34 195 P| 106 4# 102298 tod 102324 HEF ed S$ 
102414 102424 102444 10249# 102514 102524 102544 102594 Be 102624 102644 102694 102714 
102724 102744 10279# 102814 102824 10284# 103444 103484 103504 1035514 103544 103554 10357# 
103584 10359 10560# 103614 103624 103634 103694 1035714 1035724 10574# 10378# 103804 103814 
103834 103844 103854 103864 103874 10388# 105914 10395# 1035964 103974 103984 104014 104024 
104034 104044 10409# 104114 10413# 104164 10417# 104184 104194 10420# 104214 104224 104234 
104264 104314 104344 10436# 104378 10444# 10445# 104464 104474 10449# 104504 104534 10455# 
10457# 10459% 104614 104624 10464# 10468# 104694 10472# 104734 10475# 10477# 104798 104804 
104814 104824 104874 104884 104894 10490# 104954 10499# 10519# 10520# 105214 10524# 10526# 
105274 10529# 105304 105344 10535# 10536# 105374 105394 105424 10546# 105474 10548# 105514 
105534 10554# 10556# 105574 105614 10562# 105634 105644 105664 105694 10573# 10574# 10575# 
105784 10580# 105814 105834 10584# 105884 105894 105904 105914 10593# 105964 10600# 10601 
106024 106054 10607# 10608# 10610# 10611# 106154 106164 10617# 106184 10620# 10623# 10705# 
10706# 107074 10715 10716# 107174 10718# 10723# 107244 10726# 107314 10752# 10740# 107484 
10770# 107714 10772 10775# 10774# 10776# 1093514 11055# 
$STESTN 001200 B8857# 8923+ 8986+ 9044* 9104* 9157* 9186*  9275* 9319%  9362% 9407* 9528 9601+ 
9684* 9753* 9910* 10070* 10338* 11044 11078 
STIMES 001160 88574 8871+ 8923+  8986* 44 9104* 9157* 9186* 9275* 9319  9362* 9407+ 9528+ 
9601* 9684* 9753" 9910* 10029* 10070* 10338* 11063* 11078 
$TKB 001146 88574 11069 
$TKS 001144 88574 10903 11069 
$™N = 000023 86184 8721 89234 89864 8993 90444 91044 91574 91864 9193 9260 9275# 9282 
93194 9326 93624 9369 9407# 9417 9420 9454 gees 9479 9504 9513 95284 
, 96014 96844 9691 9704 9714 9732 9737 9743 7534 9834 9910# 10020 100294 
100704 10190 103384 
PB 001136 88574 11066* 
STPFLG 00115 8857# 11066 
PS 001150 8857# 11066 
STRAP 017142 8871 110874 


—_—_—_— —_-----—— SO eee nn on 





aoa cers: Chee Cy | ee oe) ce 
1 3061046) 23=DEC-82 13:56 PAGE 200-15 





' . 
CNDLAAO DLV11-J_TEST MACY1 | 
CNDLAA.P11 23-DEC-82 13:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0129 
|STRAP2 017164 110874 
STRP = 000012 110874 
STRPAD 017176 110874 
$TSKO = 000251 890 89084 8910 89344 8948 8992 8994 8999% 9002 9009# 901 90204 
9032 9035. 90554 905 90654 9068 aorge 079 90884 90 91128 9 91224 
912 91334 9136 9145 9148 91654 7. 91924 9194 91978 9259 92818 9283 
92 9299, 93078 931 3254 325) 93394 934 9350" 936 9370 693824 
9386 9395 9399 94134 94198 9421 94354 943 94498 9455 94604 9468 94748 
9480 9493 9496 94984 95 95078 9511 95594 9562 684 9571 6 08 
96354 9638 +} od 9646 9667 9670 96894 aos 96954 9745 9758 9760 97928 
97948 9796 98074 9808 98144 9833 98544 985 9879 98844 9892 2 
9925. 99354 9938 99408 9943 99448 9946 99474 0 9684 9970 99714 73 
99744 9978  9979% 9984 9993# 9 100094 10012 100154 10018 100344 100524 
0055, 10079# 10081 100894 10093 10102 10132 101814 10188 103494 10351 103564 
103754 1039 104144 104235 10430# 10431 10435 10437 104514 10490 10492 10495  10496# 
10499 Woes" 4 10530 = 10549# 10554# 10557 10576# 105814 10584 106034 10608# 10611 
107124 3 10738# 10740 10771# 10774 ) 
$TSK1 = 000250 89418 8944 91974 9258 9259 9414# 941 9418 96954 9745 9815# 9829% 9832 
98864 98884 9891 99218 9924 99498 99554 9959 100354 10037# 10042 10103# 10120 
10126# 10131 03764 103854 10387 103924 10397  10415#~--20418# 10421 104524 10480 104834 
10489, 10712 10726 10732 107718 10774 
$STSK2 = 000254 92148 at 92314 9237# 9246 9247# 92554 9257 9701 9705 9711# 9715 97208 
9723. 97278 97398 9744 9816# 98194 9828  9951# 9954 9956# 9958 100384 10041 
101164 10119 1012 10130 10394# 10396 104664 10479 10485 10488 10714# 10716# 10718 
107214 10724 107724 10773 
$TSK3 = 000253 92428 9245 9249 9254 9728% 97348 9738  9739% 9744 98194 98224 9828 104674 
10469 104714 10473 107724 10773 
$STSK4 = 000126 97298 9733 98224 98254 9828 
STSTM 001004 88564 
STSTNM 001102 88574  8909* 11063* 11075 11078 
STTYIN 015476 110694 
STYPBN= *eeeee 11087 
STYPDS 016470 110814 11087 
STYPE 014504 11066# 11072 11087 
STYPEC 014716 110664 11069 
STYPEX 014764 110664 
$TYPOC 016740 110844 11087 
STYPON 016754 110844 11087 
STYPOS 016714 110844 11087 
SUNIT 1206 8857# 8880* 10054* 10898 10958 10962* 10966 10975* 10986 
SUNITM 001010 88564 
SUSWR 20 88574 8992 9281 9325 9368 9414 9606 9689 9728 9739 9758 9792 9918 
9947 10415 10810 10814 10896 10984 
SVECT1 001244 88574 10956 
SVECT2 001246 88574 
$XTSTR 016222 110784 
SYESNO= 000001 88974 88984 8899# 89054 8946# 89474 90074 90184 90294 Fg bd 90744 90854 91204 
92484 93498 95398 9548# 95544 95764 9617# 9629% 9658# 96954 98014 
98594 9882% 98834 98854 98874 98904, 9930# 9942% 99458 9953# 
100404 100544 100924 101054 10106 10108# 101124 101224 10124# 10125# 
102224 eeee 102324 Ht rd ee # 102444 FY 94 102544 102624 102644 
102844 10559# 103624 103784 10580# 103814 103834 103844 105864 10388¢ 
104364 104554 104594 1sngse 104684 104724 104754 10477# 104814 104824 
105264 103678 105354 10557# 10539# 10542# 10547# 105514 10553# 10556# 
105694 10574# 10578# 105804 105834 105894 105914 10593# 105964 106014 
10616# 10618# 10620# 106254 10751# 107714 10772# 109314 


——a— CS Or ae 


|CNDLAAO DLV11-J_TEST 
23-DEC-82 


CNDLAA.P11 


'$$ARGC= 000000 
‘SSBYTE= 000402 


| 
SRE 
SSRT 
$$ 
$1 


SSFLAG= 000001 


SSFROM= 000000 


$$GET4= 000000 
S$LOC = 012576 


SSLOCN= 000000 
SSRETU= 000000 
SSRTNI= 000255 
RTN2= 000256 
TO = 000001 
SOFILL 017137 
002062 

$10 002410 
$100 005162 
$101 005224 
$102 005240 
$103 005276 
$104 005270 
$105 005266 
$106 005274 


N10 
MACY11 30(1046) 23=DEC-82 13:56 PAGE 200-16 


13:55 
107044 
8 


CROSS REFERENCE TABLE <= USER SYMBOLS 


9994 9009# 90204 


ee 3 3 


9032 


104924 


11055 


94904 
100004 


as a nn a a ne + ee es + 


95454 
100084 


93258 
34 


104 
106114 


95564 
101144 


105224 


95564 
101144 


SEQ 0130 


90884 91124 91224 
93508 93684 93954 


97278 


96274 
104844 


a a a ne eee - ee 


8 11 
NDLAAO DLV11-J_TEST MACY11 30(1046) 23-DEC-82 13:56 PAGE 200817 





C 

CNDLAA.P11 23-DEC-82 13:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0131 
$107 005320 9739 97448 
$11 002440 9032 50354 
$110 005320 9739 97448 
$111 005360 97584 

$112 005364 9758 97604 
$113 005452 9792 97948 
$114 005460 9794 

$115 005476 98074 9808 
$116 005514 980. 

$117 005620 9814 98334 
$12 002510 9055 

$120 005616 9815 98294 
$121 005562 9816 98194 
$122 005614 9819 98284 
$123 005576 9819 98224 
$124 005614 9822 98284 
$125 005612 9822 98254 
$126 005614 9825 

$127 005620 9829 98324 
$13 002536 9065 

$130 005652 9854 98574 
$131 005712 98794 

$132 005734 9879 98844 
$133 5766 9884 98924 
$ 005760 9886 98884 
$135 005766 9888 98914 
$ 006030 991 

$137 006036 9918 9920# 
$14 002564 9076 90794 
$140 052 9920 # 
$141 006052 9921 99248 
$142 134 9935 99384 
$143 006152 9940 9 
$144 006166 9944 99464 
$145 006240 9947 99604 
$146 006224 9949 99554 
$147 006222 99544 
$ 002614 9088 9091 
$150 006240 5 99594 
$151 006240 995 995 ' 
$152 006266 996 99704 = 
$153 006300 9971 99734 
$ 006312 9974 997. 
$155 006324 9979 99844 
$156 006374 9993 999 
$157 006464 10009 100124 
$16 002652 9112 91154 
$160 76 10015 100184 
$161 006750 10034 100504 
$162 006574 10035 100374 
$163 6 10037 100424 
$164 6 10038 100414 
$165 774 1005 100554 
$166 007022 100794 10081 
$167 007054 100894 10093 
$17 2700 91 91254 





a aa 


c 11 
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CNDLAAO avis TEST MACY] 
CNDLAA.P11 3-DEC=82 13:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0132 
$170 007112 A ag 10132 
$171 007202 1010 101204 
$172 007202 10116 =. 101194 
$173 007244 19158 aE 
$174 007244 1012 101304 
$175 007422 10181 101884 
$176 010024 103494 10351 
$177 010044 10356# 10363 
002066 8908 89104 
$20 002726 9133 91364 
$2 010132 103754 10398 
$201 010170 10376 §=103854 
$202 010174 10385 103874 
$203 010232 10392 103974 
$2 010232 10394 Fs a 
$205 010274 104144 1042 
$206 010316 10415 104184 
$207 010326 10418 104214 
$21 002756 9145 91484 
$210 010360 104304 10431 
$211 010374 104354 10437 
$212 010450 104514 10490 
$213 010554 10452. 104804 
$214 010510 104664 10479 
$215 010524 10467 104694 
$216 010534 10471 104734 
$217 010554 104794 
$2 003016 8183 91724 
$220 010614 10483 104894 
$221 010614 10485 104884 
$222 010632 104904 
$223 010644 10492 104954 
$224 010654 10496 104994 
$225 010726 10522 §=105274 
$226 010732 10527 10530# 
$227 011046 10549 105544 
$23 003046 9192 91944 
$230 011052 10554 105574 
$231 011166 10576 «105814 
$232 011172 10581 105844 
$235 011306 10603 106084 
$234 011312 10608 106114 
$235 012614 10739 107484 
$236 012616 10741 107484 
$237 012466 107124 10732 
$24 003052 91974 9259 
$240 012570 10726 §810732# 
$241 012504 10714 107164 
$242 012512 10716 §©107184 
$243 012530 14 107244 
$244 012602 10738 10740# 
$245 012676 107764 
$246 012676 107764 
$247 012644 107714 
$25 003300 9258 92594 
$250 012640 107714 10774 


DO I Be ee ae ee _ - ‘ a 


pissin tant nnn 3 


0.11 
CNDLAAO DLV11-J_TEST macyit 30(1046) 23-DEC-82 13:56 PAGE 200-19 


ICNDLAA.P11 —- 23-DEC=82 13:5 CROSS REFERENCE TABLE -- USER SYMBOLS SEO 0133 
$251 012670 10771 107748 
$252 012656 107728 
$353 019654 107728 10773 
$254 013666 10772 107734 
$355 014360 110554 
$356 014.360 110558 
$26. 003126 9214 921 
$27 003166 $31 95374 
$3 002130 8934" 8948 
$30 003222 337, 9246" 
$31 003222 9542 92458 
$32 3560 9547 99554 
$33 003256 9549 92548 
566 9555 92578 
$35 $46 95814 
003350 9581 92 
$37 16 9396 92998 
002154 8941 89448 
40 9307 9310# 
S$4OCAT= eeeeee Y 11075 11078 
003476 93254 
$42 003500 55 3274 
$43 003546 9339 
$44 003566 9350 9354# 
$45 003624 93684 
$46 003626 9368 93708 
$4 003674 9382 93868 
$5 002314 8992 89948 
$50 008712 9395 93998 
$51 . 003754 9413 94198 
$52" 003750 9414 941 
$53 003752 9416 94184 
$54 003756 9419 94218 
$55 024 9435 943 
$56 «004062 9449 94558 
$57 004102 9460 946 
$6 2334 8999 90028 
$60 004124 9474 9480 
$61 004172 9493 949 
$62 06 9498  9505# 
$63 004220 9507 95118 
$64 £04 9559 95624 
$65 004432 9568 95718 
$66 550 96 
$67 004554 9606 96084 
? 002362 9009 90124 
$70 004724 9635 9638# 
$71 00475 9643 96464 
$72. 00503 9667 96708 
$73 005104 9689" 
$74 005106 9689 9692" 
$75 005116 96958 
$76 005114 96954 9745 
$77 005322 9695  9745# 
017276 B550 BBLi# § BBsuw Basse | BaseH BRSTH BaGGH 887] 8872" 8905 3941 
8999 9009 9020 9032 9055 9065 9076 9088 9112 9122 9133 9145 








eee et. eo ee ok a e11 
1 30(1046) 23=DEC-82 13:56 PAGE 20 0° 20 


‘CNDLAAO DLV11=J_TEST MACY] 
|CNDLAA. P11 33-DEC-82 13:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0134 
9165 9192 9214 9231 9242 9247 9249 9281 9296 9307 9325 9339 9350 
| 9368 9382 9395 9413 9414 9435 9449 9460 9474 9493 9498 9507 9559 
9568 960 9635 9643 7 9689 9701 9711 9720 9727 9728 9729 9739 
9758 979 9808 9814 9815 9816 9819 9822 9854 9879 9886 9918 9921 
| 9935 9940 9944 9947 9949 9951 9956 9968 9971 9974 9979 9993 10009 
10015 10034 «10035 10036 10038 100394 10052 10081 10093 10103 10116 10126 10128 
10132 = 10181 =: 103114 4 eed 10363 10392 = 10394 §=10398 10415 10423 Hy ob 
10452 10467 10471 1047 10483 10485 10490 10492 10496 10522 10549 10576 10603 
106314 106324 106334 106360 106514 10714 10721 10738 10808 108474 10857# 10859" 110434 
110484 110504 11063 11066 11069# 110724 11075 11078 110814 110934 
oSASTA= teeeee UY 11072 
-$x = 001000 88564 


a cn ee ee ee — 


‘aca a ae es + a 


F 11 
| CNDLAAO DLV11-J_TEST MACY11 30(1046) 23=DEC-82 13:56 PAGE 201 
| CNDLAA.P11 23-DEC-82 13:55 CROSS REFERENCE TABLE -=- MACRO NAMES SEQ 0135 


[BEGIN 73908 
BGNSR 4 


Vv * 9853 (9875 10206 10217 10227 10237 10247 10257 10267 10277 10518 10533 10545 10560 
10572. 10587 10599 10614 10929 
86344 8935 8997 3998 49: 9027 869053 = 9062s: 907 9085 9110 9119 9129 9140 9163 
285 =: 9303 «9329 «937 942 9459 = 9471 9483 954 9574 9614 (9655 (9926 9986 
86394 8904 9031 9087 (91449171 9305 9674 9693 9798 9962 10150 1044 
0634 9211 9241 9337-9380) = 943294439490) 95459556 = 9565 9583S = (9627S: 3:2 
8, 9665 9700 9710 9934 9990 10000 10008 10114 10127 10393 10484 10730 
6494 
15664 87248 
6427# 8908 9237 (9255 9416 9419 9734 7 9796 9819 9822 9825 9829 9884 9888 
+43 9955 10037 10385 10418 10527 10554 10581 10608 10716 
15784 87248 
ie 
64454 8910 8944 8994 9002 9012 9023 9035 9058 9068 9079 9091 9115 9125 91 
9148 9172 9194 218 = =9245 9246 9254 9257 §=9283 = (9299) «9310 («93270 9343 9354 9370 
9386 9399 9418 9421 9438 9455 9468 9480 9496 9505 9511 9562 9571 9608 9638 
6 9670 9692 705 9715-s9725—s«O9733— 9738 9744S 9760—(«9796-—s«S982B=S(98320Ss«9833)—: 9857 
9891 9892 9924 938 9 954 9958 9959 9973 9978 
10012 10078 )3=6 10041 9= 10042) = 10050 )9=— 10055. Ss 10119) 10120 10130) 10131 | 10188 »=& 10387 3=—s «10396 =: 10397 
10421 orte ere ree 10488 10489 10495 10499 10530 10557 10584 10611 10718 10724 10740 


9244 9252 9298 9309 9341 9352 9384 9397 9437 9451 9463 9477 9495 95 9509 
9561 9570 9587 9637 9645 9669 9703 9712 9722 973 9818 9821 9824 
9831 7 9969 9972 9975 9980 9 1001 1001 1011 1018 104 10498 
87244 8943 8954 8958 8962 8966 9001 9011 9022 9034 9057 67 9078 9114 


obs 9326 9369 9417 9420 9454 9467 9479 9504 9513 9691 





CNDLAAO DLV11-J_TEST 


CNDLAA.P11 23-DEC-82 


10034 
10485 
8a 


ala tT eee 


ocooooo 
RIA=IRRLO 
4SS=RRSSS 


a a tk es ds 2 


RRAAEE 


N 
— 
ype 
~ 


LOCAL 
LOOP 66914 
MSG 89114 
99 
MULT 
NEWTST  1626# 
NOLOCA 71834 
POP 2 
PUSH 21454 
REPEAT $7:02 
REPORT 546 
RETURN 7196# 
ROUTIN 71114 
SAVR14 71384 
SCOPE 87244 
9910 
SELECT 7250# 


064 
SKIP ast 


10035 
10492 
8906 


ww 


NRNOUNU—~N 
SOWOWUWO R= 


8724m 
87244 
9612 
87244 
9704 
8724e 


MACY 

13:55 

10038 10052 10103 19136 
10522 10549 10576 1060 
9940 10015 10471 10496 


9242 9296 9339 9382 


9791 9793 9795 9801 
9890 9926 9928 9930 
10040 10053 10054 10078 
10108 10110 10112 10122 
10213 10219 10221 10222 
10252 10254 10259 10261 
10348 10350 10354 10355 
10380 10381 10383 10384 
10416 10417 10419 10420 
10455 10457 10459 10461 
193¢1 10524 10326 10529 
10556 10561 1056 10563 
10590 10591 10593 10596 
10623 10705 10706 10707 
10712 


89824 ahese 91004 9104 


10079 §=©10089 §=10102 


8871 
8993 9193 9260 928 
9714 9732 9737 974 


10128 
10714 
10721 


9435 


10349 


9186 


9778 


9880 


G11 
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10181 
10738 
9493 


i a ek ed ad ad dd ed 
aay Qe ot 4 Ww 
NOU lOoowos ounor 


"OOwWAn 


10356 


10376 


9559 


10375 


10392 


9635 


kk ek ed ad dd do 
Soooooooooooo jo 
NQOUMS SWWRN OO 
WONWNWOANWE O 
—UIWININIAUIS MLO 


10414 


9362 


10365 


9420 


10394 


9667 


ee ee 
Soooooooooo“eo 


10430 


9407 


10428 


9454 


10415 


9701 


10435 


9528 


9467 


10452 


9711 


10451 


9601 


9479 


10467 


9935 


10466 


9684 


9504 


SEQ 0136 
10483 


9993 


9753 


9513 


411 
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‘CNDLAA.P11 23-DEC-82 13:55 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0137 


SPACE 87248 


/STARS 14854 87248 8739 8741 8759 8761 8781 8783 8808 8808 8823 8833 8854 8856 8857 

892 8977 8979 898 9044 9104 9157 9186 927 319 aah 9407 9528 9601 9684 
975 984 98 987 10029 10070 10198 10200 10338 10510 10512 10678 10697 

ae 0756 =610 1 109 10945 10949 11063 11066 11069 11072 #=+§111075 11081 11084 11087 

‘STRUCT 57208 86114 

SWRSU 145 87244 88714 

ITRMTRP 110878 

TYPBIN 2 87244 

TYPDEC 20584 8724# 10048 £11063 

TYPNAM 18268 87248 

TYPNUM 20254 87244 

TYPOCS 19784 8724# 11047 

TYPOCT 19414 8724# 10046 11044 11049 #11051 11053 11069 


10044 
TYPTXT 18944 8724" 10036 10039 10043 10045 10047 10807 10821 10847 10857 10859 11043 11045 11048 


665 
UNTILB 66 
WAITMS 87144 9443 9565 9640 10000 10730 
WHILE 64874 
WHILEB 6492# 
D 58054 8 8908 8934 8941 8992 8999 9009 9020 9032 9055 906 9076 88 9112 


74 93 9498 9507 9559 9568 960 9635 9643 9667 9689 9695 9701 9711 9720 
9727 9728 9729 9734 9739 9758 979 9794 9807 9808 9814 9815 9816 9819 9822 
9825 9829 9854 9879 9884 9886 9888 9918 9920 9921 35 9940 9944 9947 9949 

9955 995 6 9971 9974 9979 999 10009 10015 10034 10035 10037 10038 10052 
10079 10089 1010 1010 10116 §=6©10126 §=6©10128 §=6©10181 103549 10356 10375 10376 10585 10392 103594 
10414 10415 10418 10430 10435 10451 10452 10466 10467 10471 10479 10483 10485 10490 10492 

10522 «10527 3=6 10549 )=— 10554 =: 1057 10581 10608 10704 10712 10714 10716 10721 10732 
10738 10768 10771 10772 11042 


SAND 60924 9739 9854 
SBRANC gly 8906 8908 8941 8948 8992 8999 9009 9020 9032 9055 9065 9076 9088 9112 


9474 9493 9498 9507 9559 9568 9606 9635 9643 9667 9689 9695 9701 9711 9720 
9727 =. 9728 9729 9734 9739 §=—-9745 9758 9792 9794 9808 9814 9815 9816 9819 9822 
9825 9829 9854 9879 9884 9886 9888 9918 9920 9921 35 0 9944 
9951 9955 9956 9968 9971 974 9979 9993 10009 10015 10034 10035 003 10038 10052 
10081 10093 10105 10116 10126 10128 10132 10181 10351 10363 10576 10385 10392 10394 10398 
10415 10418 10423 10431 10437 10452 10467 10471 10479 10483 10485 10490 0492 10522 
10527 910549 10554 10576 10581 10603 10608 10714 10716 10721 10726 10732 10738 10739 10741 
10771 §=10772 10773 10774 

SBRCOD 6230# 9258 9281 9325 


SCALL 7039# = 9211 9241 9293 9337-9380) )3=—_:«29432 9443 0 954 3336 9565 9583 9627 9632 
9640 9665 9700 9710 9934 9990 10000 10008 10114 10127 1039 10484 10730 

SCHECK 62884 8906 8941 8992 8999 9009 9020 9032 9055 9065 907 9088 8 869112 9122 9133 
9145 9165 9192 9231 9247 9249 9281 9307? 9325 9350 936 9395 9415 9414 9449 
9460 eG 9498 9507 9568 9606 9643 9689 9720 9727 9728 9729 9739 9758 9792 
9814 9815 9816 9819 9822 54 9879-988 9918 9921 9940 4 994 5 
9956 71 9 10015 10034 1003 10038 10052 1010 10126 §=10128 10181 10376 
10936 HF 10415 10452 10467 10471 10483 10485 10492 10496 1052 10549 10576 10714 


8 
$SCHK1 7725@ 8892 8894 8896 8900 8909 8928 8933 8935 8937 8997 9006 9016 9027 9053 
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72 9083 911 9119 9129 914 9163 919 9199 9200 9207 9227 9234 9253 
9256 9285 9288 930 9329 9333 9372 9376 939 9425 9430 9441 9446 9459 9471 
9483 9 9534 9537 9543 9574 9578 9581 9612 9614 9615 9623 9655 9660 9662 
9695 9708 9718 9780 9782 9783 9786 9787 = 9790 9791 9793 9795 9856 9877 9881 
9926 9928 9932 9939 998 10004 10006 10053 10078 10080 10087 10088 10090 10091 10099 
10100 10101 10110 10144 1015 10154 §=10155 10157 10208 10210 10219 10221 10229 10231 10239 
10241 10249 10251 10259 10261 10269 en) 10279 §=10281 §=—- 10344 3=6 10348 )3=6 10350 )3=— 10354 3= 10355 =S- 10357 
10358 10360 10361 10369 10371 10372 10574 10401 Hh 10403 10404 10409 10411 10413 10416 
10417 910419 10420 10426 10434 10444 10445 ieee 1044 10449 1045 10453 10457 10461 10464 
10519 10521 10534 105356 10546 10548 10561 1056 10573 10575 10588 10590 10600 10602 10615 
10617, 10705 10706 10707 10715 10717 10723 10770 10771 10772 
‘SCKOP2 7826# 8897 8898 8899 8905 ‘8946 8947 9007 =. 9018 9029 9063 9074 9085 9120 9131 
9142 2248 9349 9539 9548 9554 9576 9617 9629 9658 9801 9803 9812 9813 9859 
9 9883 9885 9887 9890 9930 9942 9945 9953 9957 9988 9999 10040 10054 10092 
10105 10106 10108 §9=10112 10122 10124 10125 10129 10211 10213 10222 10224 10232 10234 10242 
10244 1025 10254 10262 10264 10272 10274 10282 10284 10359 10362 10378 10380 10381 10383 
10384 10386 10388 10391 10395 10422 10436 10455 10459 10462 10468 10472 10475 10477 10481 
10482 10487 10520 10524 10526 10529 10535 10537 10539 10542 10547 10551 10553 10556 10562 
10564 10566 10569 10574 10578 10580 10583 10589 10591 ‘10593 10596 10601 10605 10607 10610 
arent 19636, 10618 10620 10623 10731 10931 
6119# 8906 8941 8992 8999 9009 9020 9032 9055 9065 9076 9088 §8= 9112 9122 9133 
9145 9165 9192 9231 9247 9249 9281 9307 9325 9350 9368 9395 9413 9414 9449 
60 9474 9498 9507 9568 9606 9643 9689 9720 9727 =—&_: 9728 9729 9739 9758 9792 
9814 9815 9816 9819 9822 9854 9886 9918 9947 9949 9951 
56 9971 7 979 10015 10034 10035 10038 10052 10103 10126 10128 10181 10376 
IO Hb F} 10415 10452 10467 10471 10483 10485 10492 10496 10522 10549 10576 0603 10714 
SCOMPA 6280# 8941 8 8 9009 9020 9032 9055 9065 9076 9088 9112 9122 9133 
9145 9165 9192 9214 9231 9242 9247 9249 9281 9296 9307 9325 9339 9350 9368 
9382 9395 9413 9414 9435 9449 9460 9474 9493 9498 9507 9559 9568 9606 35 
9643 89 9695 9701 9711 9720 9727 9728 972 9739 9758 9792 9814 9815 
9816 9819 9822 9854 9879 886 8 9921 9935 0 944 9 9949 51 
9968 9979 9993 10009 10015 10034 10035 10038 10052 10103 10116 10126 10128 
10181 10376 10392 10394 10415 10452 10467 10471 104835 10485 10492 10496 10522 10549 10576 
0603 10714 10721 10738 10771 10772 
SCOUNT 7032# 9211 9293 37 9380 9443 949 9545 9556 9565 9583 9627 9632 
‘ rite $665 9700 9710 9934 9990 10000 10008 10114 10127 103953 10484 10730 
SELSE 63874 9739 9819 9822 
SERRMS 60024 


S$GENBR 59244 8906 8908 8941 8948 8992 8999 9009 9020 9032 9055 9065 9076 69088 9112 
2 9133 =. 9145 9165 919 9214 9231 9237 =: 924 9247 9249 9255 9258 9259 9281 

2 9307 9325 9339 935 9368 9382 9395 941 9414 9416 9419 9435 9449 60 

9474 9 9498 9507 9559 9568 960 9635 9643 9667 9689 9695 9701 9711 9720 

9727 -9728)=— (9729) «9734 9739 =: 9745 975 9792 9794 9808 9814 9815 9816 9819 9822 

9825 9829 9854 9879 9884 9886 9888 9918 9920 9921 9935 9940 9944 9947 9 

9951 9955 rf 9968 9971 9974 9979 9993 10009 10015 10034 10035 10037 10038 10052 

10081 10093 1010 10116 §=6©10126 = 101 1013 10181 §=10351 §=10363 = 10376 )3=— 10385 )3=—:10392)S «10394 «=: 110398 

10415 10418 10423 10431 10437 104 1046 10471 10479 10483 10485 10490 10492 10496 10522 

644 10359 10333 10306 10581 1060 10608 10714 10716 10721 10726 10752 10738 10739 10741 


Ju 
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CNDLAAO DLV11-)_ TEST MACY! 
/CNDLAA.P11 23-DEC-82 13:55 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0139 
SGENTA 59004 8908 8910 8934 8944 8994 9002 901 9023 9035 9058 9068 1 9115 
9125 9136 9148 917 9194 9197 9218 382 9245 9246 9254 9255 9257 9259 9281 
9283 9299 9310 932 9327 =: 9343 9354 9 9370 9386 93 9416 9418 9419 9421 
9438 9455 9468 9480 949 9505 9511 9562 9571 9606 9608 9638 9646 9670 9689 
9692 9695 9705 9715 972 9733 9734 9738 9739 9744 9745 9758 9760 9794 9796 
9807 9808 9819 9822 9825 9828 869829 —:«9832 9833 9857 9879 9884 9888 9891 9892 
9918 9920 9924 9925 9938 9943 9946 9954 9955 9958 9959 9960 9970 9973 9978 
9984 9996 10012 10018 10037 10041 1004 10050 10055 10079 10089 10102 10119 10120 10130 
10131 10188 10349 10356 10375 10385 1038 10396 §=10397 10414 10418 10427 10430 10455 10451 
| 10466 10469 10473 10479 10480 10488 10489 10490 10495 10499 10527 10530 10554 10557 10581 
HF +} 10608 10611 10712 10716 10718 10724 10732 10740 10748 10771 10772 10773 10774 10776 
SIF 63 8906 8941 8992 8999 9009 9020 9032 9055 9065 9076 9088 9112 9122 9133 
| 914 9165 9192 9231 9247 9249 9281 9307 9325 9350 9368 9395 9413 9414 9449 
| 94 474 949 9507 9568 9606 9643 9689 9720 9727 9728 9729 ©9739 9758 9792 
| 9814 9815 9816 9819 9822 9854 9879 9918 9921 0 9944 994 9949 9951 
99 4 9979 10015 0034 10035 10038 10052 10105 10126 10128 10181 10376 
10995 te 10415 10452 10467 10471 10483 10485 10492 10496 10522 10549 10576 10603 10714 
SIFCOD 8 8948 8992 8999 9009 9020 9032 9055 9065 9076 9088 9112 9122 
9133 914 9165 9192 9231 9247 9249 9281 9307 9325 9350 9368 9395 9413 14 
9449 9460 9474 9498 9507 9568 9606 9643 9689 9720 9727 9728 9729 9739 =: 9758 
9792 9808 9814 9815 9816 9819 9822 9854 8 886 9921 40 
6 6 971 9974 10015 10034 10035 10038 10052 10081 10093 10103 
10126 §=10128 10132 10181 10351 10363 10376 10392 10394 10398 10415 10425 194 0437 
10467 10471 10479 10483 10485 10490 10492 10496 10522 10549 10576 10603 10714 10721 10738 
SIFCON 63454 9214 9242 9296 9339 9382 9435 9493 35 9667 9701 


10009 
SIFOPR 5944# 8906 8941 8948 8992 8999 9009 9020 9032 9055 9065 9076 9088 9112 9122 


9382 9395 9413 9414 9435 9449 9460 9474 9493 9498 9507 9559 96 
9635 964 7 9689 9701 9711 9720 9727 =—s_:-9728 9729 869739 9758 9792 9808 9814 
9815 9816 9819 9822 9854 9879 9886 9918 9921 9935 44 
974 979 9993 10009 10015 10034 10035 10038 10052 10081 0093 10103 
10116 §=610126)3=— 10128) )3=— 10132) 10181 »3=—s 10351 39s «10363 )=—: 110376 )3=—s: 10392 )3=s: 10394 = 10398 §=610415 = 104 
1045 10471 10479 10483 10485 10490 10496 10522 10549 10576 10603 10714 10721 


38 
$LET 79094 sere 8894 8896 8897 8898 8899 8900 8905 8909 8928 8933 8935 8937 ers 


8947 8B 6 9007 9016 = (9018 = (9027 =: 9029: 9053 9062 9063 9072 9074 9083 908 

9110 9119 9120 9129 9131 9140 914 9163 9196 9199 9200 9207 9227 9234 9248 
9253 9256 9285 9288 §=—s.- 930 9329 933 9349 9372 9376 §=—6:93393 9425 9430 41 9446 
9459 = -94711 9483 9489 9534 9537 95399545 (9548 = «9554 9574 9576 9578 9581 9612 
9614 961 9623 9629 9655 9658 9660 966 9708 §69718 «= (9780s 9782 9783 9786 
9787 =69790—s(«9791 9793 = 9795 9801 9805 9812 981 9856 9859 9877 9881 988. 9883 
9885 9887 9890 992 9928 9930 9932 9939 9942 9945 9953 9957 9986 9988 93999 
10004 10006 10040 1005 10054 10078 10080 10087 10088 10090 10091 10092 10099 101 10101 
10105 10106 10108 10110 10112 19185 10124 104¢3 oie? 10144 10152 10154 10155 1015 10208 
10210 10211 10213 10219 10221 102 10523 10229 195 1 10232 10234 10239 10241 10242 10244 
10249 10251 10252 10254 4 10261 10 96 10264 10269 Wert 10272 10274 10279 10281 185 
10284 10344 10348 10350 10354 10355 1035 10358 10359 10360 10361 10362 10369 10371 1037 

10374 10378 10380 1038! 10383 10384 10788 10388 10391 10395 10401 1040 10403 10404 10409 
10411 10413 938 4 10417 10419 10420 1042 10426 10434 10436 10444 1044 10446 10447 10449 
10450 10453 1045 10457 10459 10461 10462 eee eee 3 10475 10477 10481 Webs 10487 
10519 10520 10521 10524 1052 10529 §=10534 §=10535 10536 1053 10539 Iase 10546 81054 10548 
10551 10553 10556 10561 1056 10563 10564 10566 10569 10573 10574 1057 78 10580 10583 
10588 10589 10590 10591 1059 10596 10600 10601 10602 10605 10607 10610 1061 10616 10617 
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,CNDLAAO DLV11-J_TEST MACY1 

| CNDLAA.P11 23-DEC-82 13:55 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0140 

| 10618 1062 10623. 10705 410706 10707 10715 10717 10723 10731 10770 10931 

\SLPCNT 69278 969 10771 += 10772 

‘SOPADD 7566# 8897 8898 8899 8905 § 8947 9248 9539 % 8 9885 10040 10054 10092 

| 10106 10122 10125 10129 10211 1022 10232 10242 10252 10262 10272 10282 10359 10362 10378 
10381 10384 10386 10391 10395 S266 10462 72 10475 10477 10481 10487 10520 10524 10535 
eae 10547 10551 10562 10564 10574 10578 10589 1059 10601 10605 10616 10618 10771 10772 

SOPAND 76084 

SOPCD1 76494 8897 8898 8899 8905 8946 8947 9007 9018 9029 9063 9074 9085 9120 9131 
9142 9248 9349 9539 9548 9554 9576 9617 9629 9658 9695 9801 9803 9812 9813 
9859 9882 9883 9885 9887 9890 9930 9942 9945 9953 9957 9988 9999 10040 10054 
10092 §=10105 10106 10108 10112 10122 10124 10125 10129 10211 10213 10222 10224 10232 10234 
10242 10244 10252 10254 10262 10264 10272 10274 10282 10284 10359 10362 10378 10380 10381 
10383 10 10386 10388 10391 10395 10422 10436 10455 10459 10462 10468 10472 10475 10477 
10481 10482 10487 10520 13260 10526 10529 10535 10537 10539 10542 10547 10551 10553 10556 
10562 =910564 «8910566 10569 10574 10578 10580 10583 10589 10591 10593 10596 10601 10605 10607 
10610. 10616 10618 10620 10623 10731 10771 10772 10931 

SOPCD2 7524# 10124 10388 10455 10459 10482 

SOPCOD 7710 8897 8898 8899 8905 8946 8947 9007 9018 9029 9063 9074 9085 9120 9131 
9142 9248 9349 9539 9548 9554 9576 9617 9629 9658 9695 9801 9803 9812 9813 
9859 9882 9883 9885 9887 9890 9930 9942 9945 9953 9957 88 9999 10040 10054 
10092 «10105 «10106 )3=610108)3=610112)=—10122)=— 10124 )3= 10125) 10129) Ss 10211 )9Ss 10213 9S 10222 )3=— :110224 3=s:«110232 Ss: 10234 
10242 §=10244 10252 10254 10262 10264 10272 10274 10282 10284 10359 10362 10378 10380 10381 
10383 10384 10386 10388 10391 10395 10422 10436 10455 10459 10462 10468 10472 10475 10477 
10481 10482 10487 10520 10524 10526 10529 10535 10537 10539 10542 10547 10551 10553 10556 
10562 10564 10566 10569 10574 10578 10580 10583 10589 10591 10593 10596 10601 10605 10607 

— yah 10616 10618 10620 106253 10731 10771 10772 10931 

SOPDEF 5909 8892 8894 8896 8897 8898 8899 8900 98905 8906 8908 8909 8928 8933 8935 
8937 8941 8946 8947 8948 8992 8997 8999 9006 9007 9009 9016 8 

9 2 3 9055 9062 9063 9065 9072 9074 9076 9083 9085 9088 § §=9110 9112 


9435 4 9443 446 9449 9459 9460 9471 9474 9 
9537 = - 9539-49543 9545 9548 9554 9556 9559 9 9568 9574 44 | 9578 9581 
9583 96 2 614 9615 9617 9623 9627 9629 96 9635 9 964 9655 965 
9662 9665 9667 9689 9695 9700 9701 9708 9710 9711 9718 9720 9727 9728 
9729 = 9734 9739 9745 9758 9780 9782 9783 9786 9787 9790 9 9792 9793 9794 


9859 9877 9879 9881 9882 9883 9884 9885 9886 9887 9888 98 9918 9920 9921 
9926 9928 9930 99352 9934 9935 9939 9940 9942 9944 9945 4 9949 9951 9953 
9955 9956 9957 996 9971 9974 9979 9986 9988 9990 9993 9999 10000 10004 10006 
10008 10009 10015 10034 10035 10037 10038 10040 10052 10053 10054 10078 10080 10081 10087 
10088 90 10091 1009 10095 10099 10100 10101 10103 IOI? 10106 §=10108 10110 10112 10114 
10116 §=©10122 610124 1012 10126 §=6©10127 §=6©10128 §=—10129 10132 10144 19425 10154 10155 10157 10181 
10208 10210 10211 10213 10219 Weel see 10224 10229 10231 1023 10234 10239 10241 10242 
10244 10249 10251 10678 10254 10259 10261 Ieee 10264 10269 10271 10272 10274 10279 10281 
10282 10284 10344 1034 10350 §=©10351 10354 10355 10357 10358 10359 10360 10361 10362 10363 
10369 10371 10372 10374 10376 10378 10380 10381 10383 10384 10385 10386 10388 10391 10392 
10393 10394 10395 10598 10401 10402 10403 10404 19499 10411 910413 §=10415 10416 10417 10418 
10419 10420 10422 Hog 10426 810451 10434 104356 10457 10444 10445 19458 10447 10449 10450 
10452 §=10453) 3=610455 = 10457 3=— 10459) 10461 §=—s:10462 «10464 = :10467 =—.:10468 )3=:*10471 =: 11047 10475 10477 10479 
10481 10482 10483 10484 Hp 10487 10490 10492 10496 10519 10520 10521 10522 10524 10526 
10527, 10529) 10534 §= 10535. 10536 §=— 10537 Ss «10539 §=10542 »3=6 10546 )3=— 10547 9S «10548 §=— 10549 = 10551 = 10553 =: 10554 


a a + ee ee 


a eee ree 
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62 


10556 §=10561 = 105 10563 10564 10566 10569 10573 10574 10575 10576 10578 10580 10581 10583 
10588 10589 10590 10591 10593 10596 10600 10601 10602 19603 10605 10607 10608 10610 10615 
10616 10617 10618 196e0 19663 10705 10706 10707 10714 10715 a 10717 10721 »3= 10723 Ss: 10726 
- yt & 10731 §=10732 4 10738 10739 10741 10748 10770 10771 10772 #1077 10774 10776 10951 11055 
SOPNAN 76278 
R Peale 
SOPNOT 7616# 9018 9 9576 9617 9 9 is $813 9882 9887 9999 10213 
10224 10234 10244 10254 10264 10274 10284 10542 1056 10596 10623 
SOPOR 03# 9007 120 9142 955 9629 9890 9930 9942 
open 3 88 10105 10108 10380 10383 10468 10526 10553 10580 10607 
77524 p4 8894 8896 8900 8909 8928 8933 8935 8937 8997 9006 16 9027 9053 
9083 9110 9119 9129 9140 9163 9196 9199 9200 9207 9227 9234 9253 
9256 9285 9288 9303 9329 9333 9372 9376 9393 9425 9430 9441 9446 9459-9471 
9489 34 9537 ©9543 9574 9578 9581 9612 9614 9615 9623 9655 9660 9662 
9695 9708 9718 9780 9782 9783 9786 9787 9791 9793 9795 9856 9877 9881 
9926 9928 9932 9939 9986 10004 10006 10053 10078 10080 10087 10088 10090 10091 10099 
10100 10101 10110 10144 10152 10154 10155 10157 10208 16210 10219 10221 10229 10231 10239 
10241 10249 10251 10259 10267 10269 10271 10279 10281 10344 10348 10350 10354 10355 10357 
10358 10360 10361 10369 10371 10372 10374 10401 1040 10403 10404 10409 10411 10413 10416 
10417 10419 10420 10426 10434 10444 10445 1044 1044 10449 10450 10453 10457 10461 10464 
10519 10521 10534 10536 10546 10548 10561 056 105 10575 10588 10590 10600 10602 10615 
10617, 10705 10706 10707 10715 10717 10723 10770 10771 10772 
SOPR1 7799# =©9695 8610771 +3=10772 
SOPR2 78684 8897 8898 8899 8905 8946 8947 9007 9018 9029 9063 9074 9085 9120 8 9131 
gias 9248 9349 9539 9548 9554 3378 9617 9629 3938 9801 9803 9812 9813 9859 
988 9883 9885 9887 9890 9930 994 9945 9953 9957 9988 9999 10040 10054 10092 
10105 «910106 §=10108 10112 10122 10124 10125 10129 10211 10213 10222 10224 10232 10234 10242 
10244 10252 10254 10262 10264 10272 10274 10282 10284 10559 10362 103578 10380 10381 10583 
10384 10386 10388 10391 10395 10422 10436 10455 10459 10462 10468 10472 10475 10477 10481 
10482 10487 10520 10524 10526 10529 10535 10537 10539 10542 10547 10551 10553 10556 10562 
10564 10566 10569 10574 10578 10580 10583 10589 10591 10593 10596 10601 10605 10607 10610 
10616. 10618 10620 10623 10731 10931 
SOPSHF 7510# 10124 10388 10455 10459 10482 
SOPSUB 75 10112 = 10436) 3=— 10529 «10539 §=:110556)S «10566 §=&.:110583 Ss: 10593 »=— 10610 »9=610620 = 10731 
a 74854 


54 
$SPUT 70224 89211 9241 9293 9337 =. 9380 = 49432 9443 9490 9545 9556 9565 9583 9627 9632 
9640 9665 7 9 


SSTRUC 5765# 
$SSUBON oa hLe 8908 8910 8944 8948 8994 9002 9012 9023 9035 9058 9068 9079 9091 pad. 





9218 9237 9245 9246 9254 9255 9257 69259 (9283sO82! 

9386 § 9399 9416 9418 9419 9421 9438 9455 9468 9480 
9608 9638 9646 9670 9692 9695 9705 9715 9723 =—«_-»97735 
9760 9794 9796 9808 9819 982 9825 9828 9829 9832 
9892 9920 9924 9925 9938 994 9946 9954 9955 9958 
9984 9996 10012 190r8 10037 10047 10042 10050 10055 10081 
1013 10188 10351 1036 10385 10387 10396 10397 10398 10418 
1047 10479 10480 1aee 10489 10490 10495 10499 10527 10530 
10611 10716: 10718 10724 10752 10740 10748 10771 10772 10773 
9009 §=6©90200=—_: 9032 3033 3063 9076 9088 aii¢ 9122 =: 9133 
9249 9281 9307 9325 9350 9368 9395 941 9414 9449 








4_11 
CNDLAAO DLV11-J_TEST MACY11 30(1046) 23-DEC-82 13:56 PAGE E 20107 
CNDLAA.P11 23-DEC=82 13:55 CROSS REFERENCE TABLE -- MACRO NAMES 


9460 9474 9498 9507 9568 9606 9643 9689 9720 
9814 9815 9816 9819 9822 9854 9879 bone 9918 

6 9968 9971 9974 9979 10015 10034 1003 10038 
10392 §=10394 «10415 10452 10467 10471 10483 10485 10492 
(3 10738 


SUNTL 66214 9808 10479 10490 ° 


SUNTL 
SWHILE 64 
SSCMRE 57 
SSCMTM 88574 
SSDEFA 73544 
SSENDS 7305 
SSER 60124 
SSESCA 17114 87248 
SGEN 5 8910 8934 8944 8994 9002 9012 9023 


9438 9455 9468 9480 9496 9505 9511 9562 9571 
9692 9695 9705 9715 9723 9733 9734 9738 9739 
9807 ~ 9808 9819 9822 9825 9828 9829 9832 9833 
9918 9920 9924 9925 9938 9943 9946 9954 
9996 10012 10018 10037 10041 10042 10050 10055 
10131 10188 10349 10356 10375 10385 10387 10396 10397 
10466 10469 10473 10479 10480 10488 1048 10490 10495 
10608 10611 10704 10712 10716 10718 10724 10732 
10774. 10776 11042 11055 
S$GETS 5851# 8908 8910 8944 8948 8994 9002 9012 9023 
9125: 48 917 9237 9245 9246 
9 9386 9399 9416 
5 9 5 9608 9638 9646 
9 9760 9794 9796 
9 9892 9920 92 
997 9984 9996 0 
10132 0188 ; 


9920 9924 9925 
9996 10012 13078 
10188 10351 1036 

10479 10480 10488 
10716 §=©10718 10724 





1 
10496 10522 10549 


9925 9938 994 
10018 10037 10041 
10363 10385 10387 
10488 10489 10490 
10724 10726 10732 

9794 9819 


9254 9255 9257 
9419 9421 9438 
$692 9695 9705 
9819 982 9825 
9938 994 9946 
10037 100417 10042 
10385 10387 10596 
10489 10490 10495 
10732. «10740 =: 10748 


SEQ 0142 
9792 


9951 
10376 
10714 





Sgn SENG aN NATE 


N1 
1 3061046) 23-DEC-82 13:56 PAGE 201-8 


CNDLAAO DLV11-J_TEST MACY1 
CNDLAA.P11 “33-DEC-8 “82 13:55 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0143 
9133-9145 9165 919 9197 9214 9231 9237 9242—s«O9G 9249 9255 9259 9281 
9307 =: 9325 9339 =—s-935 9368 9382 9395 9413 9414 9416 9419 9435 9460 
9493 9498 9507 9559 9568 960 9635 9643 9667 9689 9695 9701 9711 9720 
9728 9729 9734 9739 69758 )~=—(979 9794 9807 9814 9815 9816 9819 9 9825 
9854 9879 884 9886 9888 9918 9920 9921 9935 9940 944 9947 994 9951 
+f 9971 974 9979 999 10009 10015 10034 10035 10037 10038 10052 10079 
1010 10103 = 1011 10126 §=10128 10181 10349 10356 10575 10376 10385 10392 10394 10414 
10418 10430 1043 10451 10452 104 10467 10471 10483 10485 10492 104 10522 10527 
19323 10576 10581 10605 10608 10704 10712 10714 10716 10721 10732 10738 107 10771 
8908 89 8941 8992 8 9009 9020 9032 9055 9065 6 88 9112 
913 9145 9165 9192 9197 9214 9231 9237 =: 9242. 9247 = 9249: 9255 9259 9281 


93 9498 9507 9559 9568 9606 9635 9643 9667 9689 95 9701 9711 9720 
9728 9729 9734 9739 9758 9792 9794 9807 9814 9815 9816 9819 9822 9825 
9854 9879 9884 9886 9888 9918 9920 9921 9935 9940 44 99 9951 

56 9974 979 9993 10009 10015 10034 10035 10037 10038 10052 10079 

10102. 10103 «610116 )3=6.10126)3=— 10128 39s 10181 39s: 10349 »§= 10356) 3=s 10375) Ss «10376 )3=—6: 10385 = s:« 10392 0 10414 

18 10430 10435 104517 10452 10466 10467 10471 10483 10485 10492 10496 10522 10527 

Hb 10576 10581 10603 10608 10704 10712 10714 10716 10721 10732 10738 10768 10771 

39 9819 9822 

87244 8993 9193 9260 9282 9326 936 9417 9420 9454 9467 9479 9504 9513 
704 9714 9732 9737 9743 9834 10020 10190 
86094 g7s6 

O8# 8721 
87244 11093 
86084 8868 
86094 8725 
86104 
8610# 88574 
86104 8856 
86104 11072 
86084 . 8834 
86084 8857 


86084 11069 





eS ee ee ee | 0 ee 





CNDLAAO DLV11-J_TEST MACY11 30(1046) 23=DEC-82 13:56 PAGE 201- 
CNDLAA.P11 23-DEC=82 13:55 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0144 


-$SCOP Feed 86094 11078 


‘“ Pp 86094 11087 
-STYPB 32874 

-STYPD 320 86094 11081 
-STYPE 29854 86084 11066 
-STYPO 31124 86104 11084 
-$40CA 


- ABS. 017274 000 


ERRORS DETECTED: 0 
CNDLAA, CNDLAA/CRF /NL : TOC=CNMAC2.SML,CNMAC MAC ,CNDLAA.P11 
TIME: 80 82 5 SECONDS 


CORE USED: 42k (84 PAGES) 


be at aS ne Ca a ee 


